将应用程序最小化到任务栏

    最近写了个小程序，用到了将应用程序最小化到任务栏的技巧（陈年老技巧了），怕以后不记得了，贴出来与大家分享。

 

    具体原理不说了，就是Windows API.

 

 

1. unit fMain;
3. interface
5. uses
6.   // 记得要有 Windows, Messages,ShellAPI;
8. const
9.   WM_BARICON=WM_USER + 200;
11. type
12.   TfrmMain = class(TForm)
13.     MainMenu1: TMainMenu;
14.     PopupMenu1: TPopupMenu;
15.   private
16.     { Private declarations }
17.     procedure RestoreWindow;
18.     procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
19.     procedure WMBarIcon(var Message:TMessage);message WM_BARICON;
20.   public
21.     { Public declarations }
22.   end;
24. var
25.   frmMain: TfrmMain;
27. implementation
29. {$R *.dfm}
31. procedure TfrmMain.WMBarIcon(var Message: TMessage);
32. var 
33.   p: TPoint;
34. begin 
35.   if (Message.LParam = WM_LBUTTONDOWN) then
36.   begin
37.     RestoreWindow;
38.   end
39.   else if (Message.LParam = WM_RBUTTONDOWN) then
40.   begin
41.     GetCursorPos(p);
42.     PopupMenu1.Popup(p.X, p.Y);
43.   end;
44. end;
46. procedure TfrmMain.WMSysCommand(var Message: TMessage);
47. var
48.   lpData: PNotifyIconData;
49. begin 
50.   if Message.WParam = SC_ICON then
51.   begin
52.     //如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
53.     lpData := new(PNotifyIconDataA);
54.     lpData.cbSize := 88;
55.     //SizeOf(PNotifyIconDataA); 
56.     lpData.Wnd := Self.Handle;
57.     lpData.hIcon := Self.Icon.Handle;
58.     lpData.uCallbackMessage := WM_BARICON;
59.     lpData.uID :=0;
60.     lpData.szTip := 'Samples'; 
61.     lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
62.     Shell_NotifyIcon(NIM_ADD,lpData);
63.     dispose(lpData);
64.     Self.Visible := False;
65.   end
66.   else
67.   begin
68.     //如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
69.     DefWindowProc(Self.Handle,Message.Msg,Message.WParam,Message.LParam);
70.   end;
71. end;
73. procedure TfrmMain.RestoreWindow;
74. var
75.   lpData:PNotifyIconData;
76. begin
77.   //如果用户点击任务栏图标则将图标删除并回复窗口。
78.   lpData := new(PNotifyIconDataA);
79.   lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
80.   lpData.Wnd := Self.Handle;
81.   lpData.hIcon := Self.Icon.Handle;
82.   lpData.uCallbackMessage := WM_BARICON;
83.   lpData.uID :=0;
84.   lpData.szTip := '来电弹屏系统';
85.   lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
86.   Shell_NotifyIcon(NIM_DELETE,lpData);
87.   dispose(lpData);
88.   Self.Visible := True;
89. end;
91. end.

 

注意：主窗体一定要有图标，否则任务栏会有空白

当程序最小化到任务栏以后，点击右键，可以出现一个弹出式菜单，可以在里面增加一些处理的代码。