Genau die habe ich mir runter geladen. Aber es kompiliert immer noch nicht.
Hier:
Delphi-Quellcode:
procedure TELTrayIcon.NotifyIcon(AMessage: Cardinal);
var
LNID: _NOTIFYICONDATAW; //habe ich auf die WideChar Version geändert wegen StrLCopy
LS: string;
begin
with LNID do
begin
cbSize := SizeOf(LNID); ///Hier meckert der Compiler mit der Meldung "Zu viele Parameter"!!! Warum das ???
Wnd := FHWnd;
uID := 0;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := WM_USER;
if FIcon.Handle <> 0 then
hIcon := FIcon.Handle
else
hIcon := Application.Icon.Handle;
if Hint <> '' then LS := Hint
else LS := Application.Title;
StrLCopy(szTip, PWideChar(LS), 63); //Von PChar auf PWideChar geändert durch mich
end;
Shell_NotifyIcon(AMessage, @LNID);
end;
Warum meckert der Compiler hier bei SizeOf und behauptet, zu viele Parameter erhalten zu haben?