Tray Icon während der Laufzeit ändern

[Matze]

Wenn du das Icon mittels TNA erstellst, geht es in der Art:

Delphi-Quellcode:

  //TNA-Icon
  //========
  IconData.hIcon := //Handle
  IconData.cbSize := SizeOf(IconData);
  IconData.Wnd := Handle;
  IconData.uID := 100;
  IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
  IconData.uCallBackMessage := WM_USER + 20;
  IconData.szTip := 'Text';

  //TNA-Icon aktualisieren
  Shell_NotifyIcon(NIM_MODIFY, @IconData);