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.