Delphi 添加系统托盘
来源:互联网 发布:lemon incest知乎 编辑:程序博客网 时间:2024/06/05 05:02
一、 基础知识介绍:
NIData:TNotifyIconData,NIData是非常重要的一个变量,整个程序基本上是围着这个变量在转(uses ShellAPI)。
1>、 TNotifyIconData是一个记录类型(相对于结构体变量)。
// TNotifyIconData和TNotifyIconDataA, _NOTIFYICONDATAA是同种数据类型,
TNotifyIconData = TNotifyIconDataA,
TNotifyIconDataA = _NOTIFYICONDATAA,
type
_NOTIFYICONDATAA = record
cbSize: DWORD; // cbSizes是NIData变量的大小,用SizeOf(TNotifyIconData)可以取得;
Wnd: HWND; // Wnd是一个句柄,指向消息处理的窗体。
uID: UINT; // uID:创建多个托盘小程序时,考ID号来区分。
uFlags: UINT; // uFlags是一个标志位,它表示当前所创建的托盘程序具有哪些性质:
uCallbackMessage: UINT;
hIcon: HICON; // hIcon为托盘图标的句柄,根据句柄可以增加、修改、删除图标。
// szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。
szTip: array [0..63] of AnsiChar;
end;
2>、uFlags是一个标志位,它表示当前所创建的托盘程序具有哪些性质:
NIF_ICON 表示当前所设置的图标(即hIcon的值)是有效的
NIF_MESSAGE 表示当前所设置的系统消息(即uCallBackMessage的值)是有效的
NIF_TIP 表示当前所设置的提示条(即szTip的值)是有效的。
3>、uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息,也就是说
这里定义一个消息名,当你单击或者右击托盘图标的时候就 会向你在Wnd所指向的窗体发送一个在uCallBackMessage中定义的消息名,然后你在程序中定义一个消息出来函数来处理这个消息。这样就把 Windows关于消息的整套流程都处理好了。
二、创建系统托盘的具体步骤
1. 新建一个应用程序:
File->New Applicaton 在Interface部分(全局的)的uses之后,必须定义一个消息常量:const WM_TRAYICON =WM_USER+1000; windows消息规定从WM_USER开始为用户自定义消息。Project->Options,选中Application页面,在Icon项中加载自己喜欢的图标。
定义全局变量:// 如果不定义成全局变量,系统退出时,系统托盘处还是会显示图标。
var
NIData: TNotifyIconData;
2. 定义一个函数,用于操作系统托盘:
procedure TForm1.ModifyTrayIcon(Action: DWORD);//Action 为托盘的操作类型
begin
with NIData do
begin
cbSize := sizeof(TNotifyIconData);
UID := 0;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
Wnd := Handle; //指向当前窗体Form1的句柄
uCallBackMessage := WM_TRAYICON;// 对系统托盘区返回的信息进行处理的函数。
HICON := Application.Icon.Handle;// 托盘的图标
StrPCopy(szTip, Application.Title); // 托盘的提升信息
end;
//把设置好的变量NotifyIcon按传入的操作类型进行处理
Shell_NotifyIcon(Action, @NIData);
end;
3. 定义一个消息处理函数
系统给窗体发来了一个消息,就由下面这个函数来处理,每个消息处理函数都是处
理某一类消息的,消息处理函数要在后面加上消息的名称,这样当系统发来WM_TRAYICON
消息时,就是自动触发WM_TRAYICON消息处理函数(Delphi 消息处理技术)。
声明:procedure WMTrayIcon(var message: TMessage); message WM_TRAYICON;
实现:procedure TForm1.WMTrayIcon(var message: TMessage);
var
MousePos: TPoint;
Begin
//判断是否是右击事件,是就显示右击菜单栏
if message.LPARAM = WM_RBUTTONDOWN then
begin
SetActiveWindow(Handle); //该函数激活一个窗口。
GetCursorPos(MousePos);
PopupMenu.Popup(MousePos.X, MousePos.Y); //显示右击菜单栏 PopupMenu 右击菜单的名字
end;
end;
4. 建立托盘程序,进入FormCreate的代码区域:
procedure TForm1.FormCreate(Sender: TObject);
begin
ModifyTrayIcon(NIM_ADD);
end;
5. 释放托盘程序,在FormClose的代码区域,否则会占用系统资源。
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ModifyTrayIcon(NIM_DELETE);
end;
6. 全部代码
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- ShellAPI, Menus, StdCtrls;
- const
- WM_TRAYICON = WM_APP + 0;
- type
- TForm1 = class(TForm)
- PopupMenu: TPopupMenu;
- Hello1: TMenuItem;
- Exit1: TMenuItem;
- N1: TMenuItem;
- There1: TMenuItem;
- Label1: TLabel;
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure FormCreate(Sender: TObject);
- procedure Exit1Click(Sender: TObject);
- private
- procedure WMTrayIcon(var message: TMessage); message WM_TRAYICON;
- procedure ModifyTrayIcon(Action: DWORD);
- public
- end;
- var
- Form1: TForm1;
- NIData: TNotifyIconData;
- implementation
- {$R *.DFM}
- procedure TForm1.ModifyTrayIcon(Action: DWORD);
- begin
- with NIData do
- begin
- cbSize := sizeof(TNotifyIconData);
- uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
- Wnd := Handle;
- uCallBackMessage := WM_TRAYICON;
- HICON := Application.Icon.Handle;
- StrPCopy(szTip, Application.Title);
- end;
- Shell_NotifyIcon(Action, @NIData);
- end;
- procedure TForm1.WMTrayIcon(var message: TMessage);
- var
- MousePos: TPoint;
- begin
- if message.LPARAM = WM_RBUTTONDOWN then
- begin
- SetActiveWindow(Handle);
- GetCursorPos(MousePos);
- PopupMenu.Popup(MousePos.X, MousePos.Y);
- end;
- end;
- procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
- ModifyTrayIcon(NIM_DELETE);
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- ModifyTrayIcon(NIM_ADD);
- end;
- procedure TForm1.Exit1Click(Sender: TObject);
- begin
- Close;
- end;
- end.
- Delphi 添加系统托盘
- Delphi 添加系统托盘
- delphi编写系统托盘程序
- Delphi实现系统托盘图标
- delphi(api)系统托盘
- delphi最小化到系统托盘
- Delphi 系统托盘 TrayIcon(1)
- 添加系统托盘图标
- 添加系统托盘图标
- vb添加系统托盘
- MFC 添加系统托盘图标
- Qt 添加系统托盘
- MFC添加系统托盘图标
- C# NotifyIcon添加系统托盘
- JavaFx 添加系统托盘图标
- Qt添加系统托盘
- QT添加到系统托盘
- Delphi中实现系统托盘的功能
- Android问题:Unexpected text found in layout file: """
- 易扩展的办公流程化管理核心模型(第1版)
- 浅谈二叉树的存储表示与实现
- BP神经网络及matlab实现
- poj 2251 Dungeon Master(bfs)
- Delphi 添加系统托盘
- Sublime Text 全程指引
- dpkg: error: -i (--install) 和 -i (--install) 两个操作之间有矛盾
- OC类和对象-对象的产生和使用
- HDOJ Red and Black 1312(入门级DFS)
- 每天一个linux命令(2):cd命令
- cocos2dx 49中动作示例代码
- 每天一个linux命令(3):pwd命令
- HeadFirstJava学习——数字和日期格式化