CallbackMessage TNotifyIconData

[ManfredG]

ich denke du mußt windows noch sagen, wie es deine botschaft zu verwenden hat
und zwar durch aufruf von TaskBarAddIcon

Delphi-Quellcode:

//******************************************************************************
// TASKBAR
procedure TaskBarAddIcon;
var tnid : TNOTIFYICONDATA;
begin
 tnid.cbSize := sizeof(TNOTIFYICONDATA);
 tnid.Wnd := HF.Handle;
 tnid.uID := 1;
 tnid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
 tnid.uCallbackMessage := WMU_TASKBAREVENT;
 tnid.hIcon :=HF.IconImg.picture.icon.handle;
 strcopy(tnid.szTip,'Outlookmodul');
 Shell_NotifyIcon(NIM_ADD, @tnid);
end;

procedure TaskBarRemoveIcon;
var tnid : TNOTIFYICONDATA ;
begin
 tnid.cbSize := sizeof(TNOTIFYICONDATA);
 tnid.Wnd := HF.Handle;
 tnid.uID := 1;
 Shell_NotifyIcon(NIM_DELETE, @tnid);
end;

procedure TaskBarChgTip(Tip: string);
var tnid : TNOTIFYICONDATA ;
begin
 tnid.cbSize := sizeof(TNOTIFYICONDATA);
 tnid.Wnd := HF.Handle;
 tnid.uID := 1;
 tnid.uFlags := NIF_TIP;
 strcopy(tnid.szTip,pChar(Tip));
 if not Shell_NotifyIcon(NIM_MODIFY, @tnid)
 then ShowMessage('Modifikation falsch');
end;
// TASKBAR
//******************************************************************************

frohe weihnachten alle
manfred