TNA Icon mit wechselndem Hint

[elliot2extreme]

Hallo zusammen,

ich habe ein kleines Tool programmiert welches im TNA läuft. Hier der Code zum hinzufügen des Icons in das TNA:

Delphi-Quellcode:

procedure TfrmMain.TaskBarAddIcon;
begin
  if (not fIconAdded) then
   begin
    with fNotifyIconData do
     begin
       cbSize := SizeOf(fNotifyIconData);          // will Windows so
       Wnd    := Handle;                           // Handle des Besitzer-Fensters
       uID    := 1;                                // ID für unser Icon (wir können ja mehrere haben)
       uFlags := NIF_MESSAGE Or                    // wir wollen eine Message habe
                 NIF_ICON Or                       // wir haben ein Icon
                 NIF_TIP;                          // und wir wollen einen Hint
       hIcon  := Application.Icon.Handle;          // unser Icon (das der Application)
       uCallbackMessage := WM_TASKBAREVENT;        // unsere Message ID
       StrCopy(szTip, '.: WiNdOwS :: SlEePeR :.'); // unser Hint
     end;
     Shell_NotifyIcon(NIM_ADD, @fNotifyIconData);  // bitte hinzufügen des Icons

     fIconAdded := True;
   end;
end;

Nun zu meiner Frage. Ich möchte den Hint wie zum Beispiel bei dem Windows Lan Icon ständig ändern. Das heißt geht der Anwender mit der Maus darüber wird der aktuelle Status angezeigt. Wie kann man das realisieren.

Grüße

[phlux]

einfach so:

Delphi-Quellcode:

  //...
  fNotifyIconData.szTip := 'Der neue Hint-Text';
  Shell_NotifyIcon(NIM_MODIFY, @fNotifyIconData);
  //...

mfg phlux

PS: Eine Forensuche hätte auch geholfen

[elliot2extreme]

Habe es nun auch selber herausgefunden, aber trotzdem danke für den Hinweis.

Gruß