Re: Tray Icon

Posted by Jean Claude Servaye on April 12, 2001 at 15:04:32:

In Reply to: Tray Icon posted by Zaeem on April 12, 2001 at 13:58:15:

Uses .........., shellAPI;

var
NotifyIconData : TNotifyIconData;

procedure TMyForm.FormCreate(Sender: TObject);
begin
Icon := Application.Icon;
with NotifyIconData do begin
hIcon := Icon.Handle;
StrPCopy(szTip, Application.Title);
Wnd := Handle;
uCallbackMessage := WM_ICONTRAY;
uID := 1;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
cbSize := sizeof(TNotifyIconData);
end;
Shell_NotifyIcon(NIM_ADD, @NotifyIconData);
end;