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