U bent niet ingelogd.
Om een vraag te stellen aan de DTS Helpdesk dient u dient u zich eenmalig (gratis) te registreren.

DTS Knowledgebase » Delphi win32 (D3..D7) » KB ID 1097:

Delphi, Unsafe code '@ operator'

Vraag:

Tijdens het compileren krijg ik de bovenstaande waarschuwing.
Het is niet fout, maar in de .net ongeving wordt het als risicovol gezien.
Het gaat om het volgende stukje code:

procedure TFormPrinterPortListener.applyIconSystemPanel;
var
  sMessage: String;
begin
  try
    IconSystemPanel.cbSize := sizeOf(TNotifyIconData);
    IconSystemPanel.Wnd := Handle;
    IconSystemPanel.uID := 1;
    IconSystemPanel.uCallbackMessage :=  MESSAGE_ICON_SYSTEM_PANEL;
    IconSystemPanel.hIcon := Application.Icon.Handle;
    IconSystemPanel.szTip := 'Printerport Listener';
    IconSystemPanel.uFlags := nif_Message or nif_Icon or nif_Tip;
    Shell_NotifyIcon(NIM_ADD, @IconSystemPanel);
  except
    on Error: Exception do
    begin
      sMessage := ERROR_APPLYING_ICON_SYSTEM_PANEL + #13 + Error.Message;
      raise Exception.create(sMessage);
    end; // on
  end; // except
end;

De regel: 'Shell_NotifyIcon(NIM_ADD, @IconSystemPanel);' veroorzaakt deze melding.
              

Antwoord:

U bent niet ingelogd.

	Om de knowledgebase te raadplegen dient u zich te registreren (eenmalig &gratis). DTS respecteert uw privacy: Uw gegevens worden nooit aan derden ter beschikking gesteld. Wat krijgt u er voor terug? U krijgt volledige toegang tot onze knowledgebase, en vindt u het antwoord niet, dan kunt u ook zelf een vraag stellen. Heeft U al een DTS klantaccount? Log dan in (linksboven aan op deze pagina):