Delphi 托盘程序示例

最新推荐文章于 2025-08-04 14:59:24 发布

weixin_30747253

最新推荐文章于 2025-08-04 14:59:24 发布

阅读量73

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/shaoyun/archive/2010/03/17/1690550.html

本文介绍如何使用Delphi创建系统托盘图标，并实现双击显示隐藏窗体及右键消息提示的功能。通过设置TNotifyIconData结构体并调用Shell_NotifyIcon函数，可以将自定义图标添加到任务栏的通知区域。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.

转载于:https://www.cnblogs.com/shaoyun/archive/2010/03/17/1690550.html