文档介绍：Delphi 托盘编程实战演练-DavidLove Delphi 托盘编程实战演练 DavidLove (原作) 关键字 RAD 托盘编程任务栏消息机制很多人认为 Delphi 是一个 RAD 工具,包括我本人在上学的时候对 Delphi 也有偏见,现在走出了“象牙塔”,涉及的面广了,遇到的问题多了, 慢慢地也有了自己的一点心得体会。其实,Delphi 是基于 Object Pascal 语言的开发工具, 也就是说 Delphi 本质上是一种语言工具,并且是真正的面向对象的。下面我举的例子就是用 Delphi 实现的一个托盘小程序。程序短小精悍,脉络分明,我将对关键部分进行详细讲解。就象候俊杰先生把 MFC 一层一层地剥开一样,今天我也来一次“庖丁解牛”。在 Delph i 中涉及到系统编程的方面毫无例外都要调用 API 函数, 在单元中有要用到的 API 函数的原型。实战演练: : File-> New Applicaton 在 Interfac e 部分定义一个消息常量: const WM_NID=WM_USER+1000; 系统规定从 WM_USER 开始为用户自定义消息。: NotifyIcon:TNotifyIconData , NotifyIcon 是非常重要的一个变量,整个程序基本上是围着这个变量在转。 TNotifyIconData 是一个记录类型,按住 Ctrl 键, 在 TNotifyIconData 双击即进入单元。(注:在 Delph i 中,这是一个非常好的对源代码进行分析的方法,源代码说明一切, 你要想知道程序背后的内幕, 最好的方法就是分析源代码!) 此时出现了以下赋值语句: 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