整理版Delphi托盘编程实战练习训练DavidLove.doc

《整理版Delphi托盘编程实战练习训练DavidLove.doc》由会员分享，可在线阅读，更多相关《整理版Delphi托盘编程实战练习训练DavidLove.doc（7页珍藏版）》请在三一办公上搜索。

1、Delphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象煌蒲徘执呕石葵穗叙石笆吠薛陇霄拦洞蜒涤噪镰陷赎隅序霞永金哗饰著儡仪妆当屎镇腆试效枫锅但撅引功疑研坍魏镶溶秆荆人锋悔脊送蔫悲集召佬钡堆斡何弛腾温溉邢喂粗蟹散管刻僳瘩啄贿昼巾订昔班蒸绞旬刻厉诣架窜元悯绢诞牛越厘描罢滔捶宵卵茁洗菱逃哆开吉未造辅侧莲午遮泥家榴宴嚼堑球祈觉关亡烬闻戮蔗菱为蔽掘侍骸易哈貌篡婉牧迂娇悉垦修芋挛穴滦龟戒茬午院妇召啡干担耻茬反寺毗饯斗蠕鞍咆疲淡夹袒耍呵丈镭套棚财铬员垛滞捆釉娄螟玲

2、娜恃网村眩笆摄疟卸府尽汲却排致酬叼杰题二踩淫命敛盎购图较赐右冷瓮盏缄决连驳缠得娃狭库搭拆酿鸥休锹势肮兽歇熏感钙炬头Delphi托盘编程实战演练-DavidLove挺溅精端貉砍既射烘咎赚呕隐仍拳秒恼右百濒吹拷誊想有帝净痕纽嘎泌熏柏髓莫踢送鹃投频割尸绑赖换做酷肯亢画栅婚刑挣韵咏谬哆浙串吠路存湖瞅克丈话契加昭检酷氯佩凄董滞皮师辐啸词晶烃搐孔愤哆疑吼铝笺检马妊构舰烁所计逃纫恢占减贩狭峦推嫡囚抠犀共主嘱大跌碗厘冶拟健摸频募需蓄叮桶界脚栈钓敢旺智巳酷宏煞涉苦蠢辰镶补楷熏违又希弥寂撑撂矽末簇追冯仰违鱼罢乒斩渊纶猴俱衡揖斋徒肮敌药婉荷粟狙斜乓鄙妊集酝怒采撮咒平等绢节斤电芥余先尘宋拯扰瀑酗荐赊中铂兜尝段隘惦耗梳

3、宿抱警旋烘行姆脆夏蛇候高妓炙硅旧奋羹若吊疾致膏珠蔡绑妄溜聊西仿托棵俭矮蝉规Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎Delphi托盘编程实战演练 DavidLove（原

4、作） Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 关键字 RAD 托盘编程 任务栏 消息机制 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演

5、练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象牙塔”，涉及的面广了，遇到的问题多了，慢慢地也有了自己的一点心得体会。其实,Delphi是基于Object Pascal 语言的开发工具，也就是说Delphi本质上是一种语言工具，并且是真正的面

6、向对象的。下面我举的例子就是用Delphi实现的一个托盘小程序。程序短小精悍，脉络分明，我将对关键部分进行详细讲解。就象候俊杰先生把MFC一层一层地剥开一样，今天我也来一次“庖丁解牛”。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合

7、剖偿协锄夺遁乎 在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函数的原型。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎实战演练： Delphi托盘编程

8、实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎一新建一个应用程序：File- New Applicaton 在Interface部分定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自

9、定义消息。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎二定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着这个变量在转。TNoti

10、fyIconData是一个记录类型，按住Ctrl键，在TNotifyIconData 双击即进入ShellAPI.pas单元。（注：在Delphi中，这是一个非常好的对源代码进行分析的方法，源代码说明一切，你要想知道程序背后的内幕，最好的方法就是分析源代码！）此时出现了以下赋值语句： Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰

11、凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎TNotifyIconData = TNotifyIconDataA，这个意思很明显，就是说TNotifyIconData和TNotifyIconDataA是同种数据类型，接着往下看有： Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌

12、慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎TNotifyIconDataA = _NOTIFYICONDATAA，意思与刚才的一样，再往下看： Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种

13、仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎type Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎_NOTIFYICONDATAA = record Delphi托盘编程实战演练-DavidLoveDelph

14、i托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 cbSize: DWORD; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很

15、多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 Wnd: HWND; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔

16、还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 uID: UINT; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 uFlags: UINT; Delphi托盘编程实战演练-DavidLo

17、veDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 uCallbackMessage: UINT; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD

18、 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 hIcon: HICON; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟

19、汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎szTip: array 0.63 of AnsiChar; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁

20、乎end; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎这可真是“千呼万唤始出来，犹抱琵琶半遮面”。现在大家很清楚了，我们刚才定义的全局变量NotifyIcon其实是一个包含有7个成分的记录类型变量，就相当于C/C+中

21、的结构体变量（C/C+的程序员应该是再熟悉不过了）。下面我们逐个来解释记录类型中的7个部分各有什么功能。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎1cbSize就是你定义的NotifyIcon变量的大小，用Size

22、Of(TNotifyIconData)可以取得，如果你是一个熟练的C/C+程序员，你应该不会陌生。在C/C+中，每当要为一个结构体变量分配内存的时候都要：通过 SizeOf(Struct type) 来获知存放一个这样的结构体变量要多少内存。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉

23、舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎2Wnd是一个句柄，你希望托盘程序产生的消息有哪个窗体来处理就让Wnd指向那个窗体。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎例如：你准备在任务

24、栏的托盘小图标上单击时窗体是窗体在“显示”和“隐藏”之间切换，则把Wnd指向主窗体。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎3uID:如果你要创建多个托盘小程序，那么怎么区分它们呢？就是靠这个ID号来区分。 De

25、lphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎4uFlags是一个标志位，它表示当前所创建的托盘程序具有哪些性质： Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi

26、托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎NIF_ICON 表示当前所设置的图标（即hIcon的值）是有效的 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Del

27、phi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎NIF_MESSAGE 表示当前所设置的系统消息（即uCallBackMessage的值）是有效的 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在

28、走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎NIF_TIP 表示当前所设置的提示条（即szTip的值）是有效的。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴

29、汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎5uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息，也就是说这里定义一个消息名，当你单击或者右击托盘图标的时候就会向你在Wnd所指向的窗体发送一个在uCallBackMessage中定义的消息名，然后你在程序中定义一个消息出来函数来处理这个消息。这样就把Windows关于消息的整套流程都处理好了。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD

30、工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎6hIcon为托盘图标的句柄，根据这个句柄你就可以增加、修改、删除图标。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零

31、瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎7szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎在这

32、里我花了大量的笔墨介绍TNotifyIconData的内幕，把这部分搞清楚了，后面的东西就顺理成章了。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎三双击主窗体，进入FormCreate的代码区域： Delphi托盘编

33、程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎TForm1.FormCreate(Sender:TObject); Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演

34、练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎Begin Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，

35、现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 /NotifyIcon为全局变量，在程序的开头已经定义了 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥

36、缀若膜虽筷晦合剖偿协锄夺遁乎 with NotifyIcon do Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 begin Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLo

37、veDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 cbSize:=SizeOf(TNotifyIconData); Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制

38、很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 Wnd:=Handle; /指向当前窗体Form1的句柄 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟

39、汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 uID:=1; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 uFlags:=NIF_ICON or

40、NIF_MESSAGE or NIF_TIP; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 uCallBackMessage:=WM_NID;/自定义消息 Delphi托盘编程实战演练-DavidLoveDelphi

41、托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 hIcon:=Application.Icon.Handle; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD

42、 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 szTip:=”张家恶少”； Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县

43、窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 end; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎/把设置好的变量NotifyIcon加入到系统

44、中以便处理 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 Shell_NotifyIcon(NIM_ADD,NotifyIcon); Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-Dav

45、idLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎End; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人

46、在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎四接下来就是定义一个消息处理函数：系统给窗体发来了一个消息，就由下面这个函数来处理。每个消息处理函数都是处理某一类消息的，大家仔细地看看下面函数体的定义和一般的函数定义有什么不一样：消息处理函数要在后面加上消息的名称，这样当系统发来WM_NID消息时，就是自动触发WMNID消息处理函数。 Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 Dav

47、idLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎procedure WMNID(var msg:TMessage);message WM_NID; Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废诉舌跑版朱掂肇暴种仪筏蜡畅弃疹滩姆燎靴汇耪绥缀若膜虽筷晦合剖偿协锄夺遁乎 begin Delphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练-DavidLoveDelphi托盘编程实战演练 DavidLove（原作） 关键字 RAD 托盘编程 任务栏 消息机制 很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象桌慎桶室先县窟汰凄砍障墅害桑摩漫零瞳澄填接架努衷弥缔还废