Cara hide kedalam system tray icon pada delphi

Assalamu alaikum Wr. Wb

Pada kesempatan kali ini saya akan membagikan Cara hide kedalam system tray icon pada delphi kurang lebihnya seperti ini penampakanny.

Baiklah langsung kita mulai saja tutorialnya:
1. Buka delphi dan tambahkan button pada formnya

2. Tambahkan comobj, ShellApi pada usesnya dan Const WM_CAllBack = WM_USER; di atas type

 

3. Tambahkan

procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack; ( pada type)

 

procedure TForm1.WM_CALLBACKPRO(var msg : TMessage);

var
p : TPoint;
begin
case msg.LParam of
WM_LBUTTONDOWN :
begin
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
Form1.Visible := True;
end;
WM_RBUTTONDOWN :
begin
GetCursorPos(p);
PopupMenu1.Popup(p.X,p.Y);
end;
end;
end; //(pada implementation)

 

Var

kecil : HICON;

TrayIcon : TNotifyIconData; 

 

 4. Tambahkan PopupMenu1 pada formnya

5. Selanjutnya klik dua kali pada buttonya dan masukan coding berikut

Form1.Visible := False;

Kecil := application.Icon.Handle;
Trayicon.cbSize := SizeOf(TNotifyIconData);
Trayicon.Wnd := handle;
Trayicon.szTip := 'Ane ada disini';
Trayicon.uID := 1;
TrayIcon.hIcon := Kecil;
TrayIcon.uCallbackMessage := WM_CAllBack;
Trayicon.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,@trayicon);

6.Selesai.

Bagi yang berminat untuk melihat source codenya bisa download  [ DISINI ] atau [ DISINI ]

selamat mencoba dan semoga bermanfaat