自定义消息通知：托盘程序实现

"自写消息，托盘程序的开发与实现" 在计算机编程中，创建一个可以将程序图标最小化到系统托盘并隐藏任务栏图标的程序是一种常见的需求。这个程序描述的是如何通过 Delphi 编程语言来实现这样的功能，并且允许用户通过点击托盘图标触发自定义的消息处理。以下将详细介绍其中的关键知识点： 1. **托盘编程**： - **系统托盘**：系统托盘是 Windows 操作系统任务栏上的一个小区域，通常位于右下角，包含各种小图标，如网络、音量等。程序可以将自己的图标隐藏到这里，以便在不使用时保持后台运行。 - **托盘图标**：通过使用 `TNotifyIcon` 组件，Delphi 程序可以轻松地将图标添加到系统托盘。在代码中，可以看到 `Shell_NotifyIcon(NIM_ADD,@NotifyIcon)` 被用来向托盘添加图标。 2. **自定义消息处理**： - **自定义消息**：程序定义了一个名为 `WM_NID` 的自定义消息，用于处理托盘图标上发生的事件。在 Delphi 中，可以使用 `const WM_NID = WM_USER + 1000` 来声明自定义消息类型。 - **消息处理**：当用户与托盘图标交互时，会发送自定义消息。`procedure WMNID(var msg: TMessage); message WM_NID;` 定义了处理 `WM_NID` 消息的事件处理器。 3. **消息传递**： - **`WM_SYSCOMMAND` 消息**：此消息由操作系统发送给窗口，当用户执行如最大化、最小化、关闭等操作时。在代码中，`PostMessage(Self.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);` 用于模拟用户最小化窗口，使得程序图标进入托盘。 - **`WM_USER` 和 `WM_NID`**：`WM_USER` 是 Windows 保留的用于应用程序自定义消息的基地址，`WM_NID` 是基于 `WM_USER` 的自定义消息，用于处理托盘事件。 4. **事件处理**： - **`FormCreate` 事件**：这是 Delphi 中窗体创建时触发的事件。在 `FormCreate` 事件处理器中，设置了程序的一些初始状态，如隐藏主窗体，设置托盘图标等。 - **`SysCommand` 事件**：`procedure SysCommand(var SysMsg: TMessage); message WM_SYSCOMMAND;` 用于处理 `WM_SYSCOMMAND` 消息。在这个例子中，可能包含了对用户尝试关闭或最小化窗体的响应。 5. **其他关键类和函数**： - **`ShellAPI`，`Menus`，`IniFiles`**：这些是 Delphi 标准库中的单元，提供了对操作系统壳层（如打开文件对话框）、菜单处理以及配置文件读写的支持。 - **`ADODB`，`DB`，`DBClient`，`Provider`**：这些与数据库访问有关，表明程序可能涉及到数据库操作，如数据获取和存储。 通过以上分析，我们可以看到这个程序实现了将应用程序窗口最小化到托盘，隐藏任务栏图标，以及设置托盘图标点击触发自定义消息的完整流程。这在很多后台运行或者需要保持常驻内存的应用程序中非常常见。