Arsip: Menempatkan Icon dalam System Tray

uses
..., ShellAPI;
const
WM_ICONTRAY = WM_USER + 1; //User-defined message

type
...
var
...
NotifyIconData   : TNotifyIconData;
implementation
procedure Tfrmmain.FormCreate(Sender: TObject);
begin
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);
setwindowlong(application.Handle, gwl_exstyle,ws_ex_toolwindow);
end;

procedure tfrmmain.icontray(var Msg: Tmessage);
var
cursorpos : tpoint;
begin
if msg.LParam = wm_rbuttondown then
begin
getcursorpos(cursorpos);
popupmenu1.Popup(cursorpos.X,cursorpos.Y);
end else
inherited;
end;

procedure Tfrmmain.Show1Click(Sender: TObject);
begin
;
//shell_notifyicon(nim_delete,@notifyicondata);
end;
procedure Tfrmmain.Exit1Click(Sender: TObject);
begin
shell_notifyicon(nim_delete,@notifyicondata);
application.ProcessMessages;
application.Terminate;
end;
procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action  := canone;
hide;
//shell_notifyicon(nim_add,@notifyicondata);
end;