Delphi 托盘程序示例

 1 // Code By Shaoyun 2010-03-16
 2 
 3 unit Unit1;
 4  
 5 interface
 6  
 7 uses
 8 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 9 Dialogs, ShellAPI;
10  
11 const
12 WIM_NID=WM_USER + 1001;
13  
14 type
15      TForm1 = class(TForm)
16      procedure FormCreate(Sender: TObject);
17      procedure FormDestroy(Sender: TObject);
18      private
19      { Private declarations }
20      public
21      { Public declarations }
22      procedure ProcessNotifyMessage(var msg:TMessage);message WIM_NID;
23 end;
24  
25 var
26      Form1: TForm1;
27      NotifyIcon : TNotifyIconData;
28  
29 implementation
30  
31 {$R *.dfm}
32  
33 procedure TForm1.FormCreate(Sender: TObject);
34 begin
35      with NotifyIcon do
36      begin
37           cbSize:= SizeOf(TNotifyIconData);
38           Wnd:= Handle;
39           uID := 1;
40           uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
41           uCallbackMessage := WIM_NID;
42           hIcon := Application.Icon.Handle;
43      end;
44      StrPCopy(NotifyIcon.szTip,Application.Title);
45      Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
46 end;
47  
48 procedure TForm1.ProcessNotifyMessage(var msg:TMessage);
49 begin
50      case msg.LParam of
51           WM_LBUTTONDBLCLK: Form1.Visible := not Form1.Visible;
52           WM_RBUTTONUP: ShowMessage('你点击了右键！');
53      end;
54 end;
55  
56 procedure TForm1.FormDestroy(Sender: TObject);
57 begin
58      Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
59 end;
60  
61 end.