HI,
This might help you....
procedure PutIconInSysTray;
begin
// defines the details of the icon to bve displayed
FIconData.cbSize := SizeOf(FIconData);
FIconData.Wnd := Self.Handle;
FIconData.uID := $DEDB; // ?
FIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
FIconData.hIcon := Forms.Application.Icon.Handle;
FIconData.uCallbackMessage := WM_CALLBACKFUNCTION;
StrCopy(FIconData.szTip, PChar(Caption));
// will put the icon in systray when you minimise
Shell_NotifyIcon(NIM_Add, @FIconData);
end;
: )
NIRAV KAKU
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
