Minimaze to Systray dengan Code Delphi

Minimaze to Systray atau sering juga di sebut Tray Icon. Sobat Delphi Tutor Tahu kan apa itu ?

Masalahnya saya sendiri bingung mau menjelaskan bagaimana. :)

agar tidak sama-sama bingung contoh screen shootnya Seperti di bawah ini 

sudah tahu kan ? nah, sekarang mari kita belajar bagaimana membuat aplikasi agar pada saat di minimaze jadi kayak gambar diatas (mengecil ke systray) caranya mudah kok. ikuti saja step-step berikut :

1. Buka Delphi Anda dan Desain Sesuka Hati

2. Tambahkan 1 Buah Popup Menu dan buat 2 menu di dalam popup menu anda (About & Close) Seperti gambar di bawah ini

3. Tambahkan sebuah Button

4. Tambahkan ShellApi Pada Uses Anda seperti di bawah ini

uses
  ... , shellapi; 

5. Tambahkan Konstanta sebelum Code type

Const
WM_CAllBack = WM_USER;

type 
 .... 

6. Tambahkan Prosedur Baru 

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

7. Deklarasikan Variabel berikut (global)

  kecil : HICON;
  TrayIcon : TNotifyIconData;

8. Tambahkan Code berikut di bawah implementation

implementation

Uses comobj;

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;

9. Klik dua kali Button yang telah anda tambahkan dan letakan kode berikut didalamnya

Form1.Visible := False;
Kecil := application.Icon.Handle;
Trayicon.cbSize := SizeOf(TNotifyIconData);
Trayicon.Wnd := handle;
Trayicon.szTip := 'Click Untuk Memunculkan';
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);

10. Klik dua kali Popup menu anda kemudian klik menu Close dan tambahkan kode berikut

Halt;