na damit hier keiner nen Herzinfarkt bekommt (@ Matze) - hier mal was zum Thema:
folgenden Code benutz ich um das Icon zu erstellen:
Code:
private
{ Private-Deklarationen }
IconData : TNotifyIconData;
procedure TForm1.FormCreate(Sender: TObject);
begin
//Erzeugen des SysTrayIcon
IconData.cbSize := SizeOf(TNotifyIconData);
IconData.Wnd := AllocateHWnd(HandleMessage);
IconData.uId := IconID;
IconData.uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP;
IconData.uCallbackMessage := WM_USER + 1024;
end;
Ich müsste halt die X und Y-Position rausfinden können, des TrayIcons.
Problem wird sein, dass das auf allen gängigen Win-Versionen funktionieren muss.
mfg
Helmi