Heyho,
ich benutze XE2 (eine FM-HD Anwendung) mit win7 64bit.
Ich kann mit Shell_NotifyIcon ein Item ins System Tray einfügen.
Leider verabschieded sich mein Tray Icon jedesmal, wenn ich den Mauszeiger über das System Tray bewege.
Ich bitte um Denkanstöße
Hier mein Code:
Code:
procedure TRandomForm.SendToTray;
var
IconData : TNOTIFYICONDATA;
ExeName : PWideChar;
begin
IconData.cbSize := sizeof(TNOTIFYICONDATA);
IconData.Wnd := RandomForm.handle;
IconData.uID := 1;
IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
IconData.uCallbackMessage := WM_TASKBAREVENT; // $1E2D = Doppelklick linke Maustaste
ExeName := PWideChar(Paramstr(0));
IconData.hIcon := ExtractIcon(application.GetHashCode,ExeName, 0) ;
strcopy(IconData.szTip,'uktfzg');
Shell_NotifyIcon(NIM_ADD, @IconData);
end;
Und ja: ich bin ein Totengräber
Danke euch.