一.新建一个应用程序:File->New Applicaton 在Interface部分要放在Uses Message之后,定义一个消息常量:const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。

二.定义一个全局变量: NotifyIcon:TNotifyIconData,NotifyIcon是非常重要的一个变量,整个程序基本上是围着这个变量在转。 TNotifyIconData是一个记录类型,按住Ctrl键,在TNotifyIconData 双击即进入ShellAPI.pas单元【注意加入引用】。(注:在Delphi中,这是一个非常好的对源代码进行分析的方法,源代码说明一切,你要想知道程序背后的内 幕,最好的方法就是分析源代码!)此时出现了以下赋值语句:

TNotifyIconData = TNotifyIconDataA,这个意思很明显,就是说TNotifyIconData和TNotifyIconDataA是同种数据类型,接着往下看有:

TNotifyIconDataA = _NOTIFYICONDATAA,意思与刚才的一样,再往下看:

type

_NOTIFYICONDATAA = record

cbSize: DWORD;

Wnd: HWND;

uID: UINT;

uFlags: UINT;

uCallbackMessage: UINT;

hIcon: HICON;

szTip: array [0..63] of AnsiChar;

end;

这可真是“千呼万唤始出来,犹抱琵琶半遮面”。现在大家很清楚了,我们刚才定义的全局变量NotifyIcon其实是一个包含有7个成分的记录类型变 量,就相当于C/C++中的结构体变量(C/C++的程序员应该是再熟悉不过了)。下面我们逐个来解释记录类型中的7个部分各有什么功能。

1> cbSize就是你定义的NotifyIcon变量的大小,用SizeOf(TNotifyIconData)可以取得,如果你是一个熟练的C/C++程 序员,你应该不会陌生。在C/C++中,每当要为一个结构体变量分配内存的时候都要:通过 SizeOf(Struct type) 来获知存放一个这样的结构体变量要多少内存。

2> Wnd是一个句柄,你希望托盘程序产生的消息有哪个窗体来处理就让Wnd指向那个窗体。

例如:你准备在任务栏的托盘小图标上单击时窗体是窗体在“显示”和“隐藏”之间切换,则把Wnd指向主窗体。

3> uID:如果你要创建多个托盘小程序,那么怎么区分它们呢?就是靠这个ID号来区分。

3> uFlags是一个标志位,它表示当前所创建的托盘程序具有哪些性质:

NIF_ICON 表示当前所设置的图标(即hIcon的值)是有效的

NIF_MESSAGE 表示当前所设置的系统消息(即uCallBackMessage的值)是有效的

NIF_TIP 表示当前所设置的提示条(即szTip的值)是有效的。

4> uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息,也就是说这里定义一个消息名,当你单击或者右击托盘图标的时候就 会向你在Wnd所指向的窗体发送一个在uCallBackMessage中定义的消息名,然后你在程序中定义一个消息出来函数来处理这个消息。这样就把 Windows关于消息的整套流程都处理好了。

6> hIcon为托盘图标的句柄,根据这个句柄你就可以增加、修改、删除图标。

7> szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。

三. 双击主窗体,进入FormCreate的代码区域:

TForm1.FormCreate(Sender:TObject);

Begin

//NotifyIcon为全局变量,在程序的开头已经定义了

with NotifyIcon do

begin

cbSize:=SizeOf(TNotifyIconData);

Wnd:=Handle; //指向当前窗体Form1的句柄

uID:=1;

uFlags:=NIM_ICON or NIM_MESSAGE or NIM_TIP;

uCallBackMessage:=WM_NID;

hIcon:=Application.Icon.Handle;

szTip:=‘Test 托盘’;

end;.

//把设置好的变量NotifyIcon加入到系统中以便处理

Shell_NotifyIcon(NIM_ADD,@NotifyIcon);

End;

四.接下来就是定义一个消息处理函数:系统给窗体发来了一个消息,就由下面这个函数来处理。每个消息处理函数都是处理某一类消息的,大家仔细地看看下面 函数体的定义和一般的函数定义有什么不一样:消息处理函数要在后面加上消息的名称,这样当系统发来WM_NID消息时,就是自动触发WMNID消息处理函 数。

procedure WMNID(var msg:TMessage);message WM_NID;

begin

case msg.LParam of

WM_LBUTTONUp; Form1.Visible:=not Form1.Visible;

WM_RBUTTONUP: ShowMessage(‘您点击的是右键’);

End;

End;

好了,一个最简单的程序诞生了,大家自己设置好自己喜欢的图标.
Project->Options,选中Application页面,在Icon项中加载自己喜欢的图标,这样程序运行时,在任务栏里显示 的就是 你喜欢的图标了。当你单击图标时,窗体Form1会在可见与不可见之间切换,也就是说单击一下显示,再单击一下又隐藏。当你右击图标的时候会弹出一条消 息:“你点击的是右键”。

五.最后要记住在关闭应用程序的时候要释放掉建立的托盘程序,否则会占用系统资源。

TForm1.FormDestroy(Sender:TObject);

Begin

Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);

End;

【程序全部代码如下】
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ShellAPI;
const
WM_NID = WM_USER + 1000;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WMNID(var msg:TMessage);message WM_NID;
end;

var
Form1: TForm1;
NotifyIcon:TNotifyIconData;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//NotifyIcon为全局变量,在程序的开头已经定义了
with NotifyIcon do
begin

cbSize:=SizeOf(TNotifyIconData);

Wnd:=Handle; //指向当前窗体Form1的句柄

uID:=1;

uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;

uCallBackMessage:=WM_NID;

hIcon:=Application.Icon.Handle;

szTip:= 'Test';

end;

/ /把设置好的变量NotifyIcon加入到系统中以便处理

Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
end;

procedure TForm1.WMNID(var msg:TMessage);
begin

case msg.LParam of

WM_LBUTTONUp: Form1.Visible:=not Form1.Visible;

WM_RBUTTONUP: ShowMessage('您点击的是右键');

End;

End;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
end;

end.

最新文章

  1. [Erlang 0129] Erlang 杂记 VI
  2. python基础教程-第三章-使用字符串
  3. HTML5学堂,感谢您一年的陪伴(上)
  4. Why is Visual Studio 2015 not able to find or open PDB files?
  5. javaScript基础语法(下)
  6. Oracle性能优化--DBMS_PROFILER
  7. PHP 练习租房
  8. Objective-C 【This is ARC】
  9. 详解 Android 的 Activity 组件
  10. CentOS使用sendmail发送邮件
  11. Hdu1093
  12. tomcat配置数据池
  13. javaweb-1-B/S初论
  14. 你可能不知道的jvm的类加载机制
  15. js除法四舍五入
  16. js 字符串操作
  17. vtime.hpp
  18. 插入排序专题 直接插入 折半 希尔shell
  19. Linux下安装Julia1.0.0
  20. 架构师成长之路3.1-Cobber原理及部署

热门文章

  1. openwrt ssh免密登录
  2. shell编写启动脚本
  3. CodeFirst命令
  4. PHP ftp_pwd() 函数
  5. Android中对应用程序的行为拦截实现方式概要
  6. 表格排序tablesort小案列
  7. LInux多线程编程----线程属性pthread_attr_t
  8. java文件上传方式1servlet 方式2springmvc
  9. 获取hdfs集群信息(fs.defaultFS)
  10. Centos 能ping通域名和公网ip但是网站不能够打开,服务器拒绝了请求。打开80端口解决。