DELPHI 应用程序图标托盘至右下角

S3_Leo

1. 
   
2. 
   
3. unit MSTSCUnit1;
   
4. 
   
5. interface
   
6. 
   
7. uses
   
8.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   
9.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.IniFiles,Winapi.ShellAPI,Vcl.AppEvnts;
   
10. 
    
11. const
    
12. MouseMsg =WM_USER + 1;
    
13. 
    
14. type
    
15.   TForm1 = class(TForm)
    
16.     procedure FormShow(Sender: TObject);
    
17.     procedure FormCreate(Sender: TObject);
    
18.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    
19.   private
    
20.     { Private declarations }
    
21.     procedure MouseMessage(var message: tmessage); message mousemsg;    //这里要复制，系统创建少最后一段内容。
    
22.   public
    
23.     { Public declarations }
    
24.   end;
    
25. 
    
26. var
    
27.   Form1: TForm1;
    
28.   ntida:TNotifyIcondataA;
    
29. 
    
30. implementation
    
31. 
    
32. {$R *.dfm}
    
33. 
    
34. 
    
35. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    
36. begin
    
37.   Action := caNone; //不对窗体进行任何操作
    
38.   ShowWindow(Handle, SW_HIDE); //隐藏主窗体
    
39.   //隐藏应用程序窗口在任务栏上的显示
    
40.   ShowWindow(Application.Handle, SW_HIDE);
    
41.   SetWindowLong(Application.Handle, GWL_EXSTYLE,
    
42.   not (GetWindowLong(Application.handle, GWL_EXSTYLE)
    
43.   or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
    
44. end;
    
45. 
    
46. procedure TForm1.FormCreate(Sender: TObject);
    
47. begin
    
48.   ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度
    
49.   ntida.Wnd := handle; //取应用程序主窗体的句柄
    
50.   ntida.uID := 100; //用户自定义的一个数值，在uCallbackMessage参数指定的消息中使
    
51.   ntida.uFlags := nif_icon + nif_tip +
    
52.   nif_message; //指定在该结构中uCallbackMessage、hIcon和szTip参数都有效
    
53.   ntida.uCallbackMessage := mousemsg;
    
54.   //指定的窗口消息
    
55.   ntida.hIcon := Application.Icon.handle;
    
56.   //指定系统状态栏显示应用程序的图标句柄
    
57.   ntida.szTip := 'MSTSC';
    
58.   //当鼠标停留在系统状态栏该图标上时，出现该提示信息
    
59.   shell_notifyicona(NIM_ADD, @ntida);
    
60.   //在系统状态栏增加一个新图标
    
61. end;
    
62. 
    
63. procedure TForm1.MouseMessage(var message: tmessage);
    
64. var
    
65. mousept: TPoint; //鼠标点击位置
    
66. begin
    
67. inherited;
    
68. if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标
    
69. if MessageBox(Handle, '你确定要退出吗？', '信息提示', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
    
70.   begin
    
71.     ntida.cbSize := sizeof(tnotifyicondataa);
    
72.     ntida.wnd := handle;
    
73.     ntida.uID := 100;
    
74.     ntida.uFlags := nif_icon + nif_tip + nif_message;
    
75.     ntida.uCallbackMessage := mousemsg;
    
76.     ntida.hIcon := Application.Icon.handle;
    
77.     ntida.szTip := 'MSTSC';
    
78.     shell_notifyicona(NIM_DELETE, @ntida);
    
79.     //删除已有的应用程序图标
    
80.     Application.Terminate;
    
81.     //中断应用程序运行，退出应用程序
    
82.   end;
    
83. end;
    
84. if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标
    
85.     //显示应用程序窗口
    
86.     ShowWindow(Handle, SW_SHOW);
    
87.    //在任务栏上显示应用程序窗口
    
88.    // ShowWindow(Application.handle, SW_SHOW);
    
89.     SetWindowLong(Application.Handle, GWL_EXSTYLE,
    
90.     not (GetWindowLong(Application.handle, GWL_EXSTYLE)
    
91.     or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
    
92. end;
    
93.     message.Result := 0;
    
94. end;
    
95. 
    
96. procedure TForm1.FormShow(Sender: TObject);
    
97. begin
    
98.   //显示位置
    
99.   Form1.top:=(screen.height-form1.height) div 5;
    
100.   Form1.left:=(screen.width-form1.width) div 1;
     
101. end;
     
102. 
     
103. end.
     
104. 
     

复制代码