Hi Daniel,
klingt echt gut, dein Vorschlag. Ich habe damit jetzt folgenden Code produziert:
Delphi-Quellcode:
With TrayIconData
Do Begin
cbSize := SizeOf(TrayIconData);
Wnd :=
Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage := WM_USER+1;
hIcon := LoadIcon(0, '
c:\online.ico');
StrPCopy(szTip, Application.Title);
End;
Shell_NotifyIcon(NIM_ADD, @TrayIconData);
Allerdings liefert LoadIcon immer NULL zurück, weshalb auch kein Icon dargestellt wird.
Die angegebene Icon-Datei existiert, und beinhaltet 2 Icons mit jeweils 16x16 Pixel in den Farbtiefen 16 Farben und 256 Farben (bei Bedarf kann ich es auch gerne anhängen, falls es am Icon liegen sollte).
Kann irgendjemand dieses Problem nachvollziehen, und vielleicht einen Lösungsvorschlag machen?
Cu, Chris
Edit: Ich habe mal GetLastError aufgerufen, und als Ergebnis '1813' erhalten. Was heißt das jetzt und wie könnte ich den Fehler vielleicht beheben?