Delphi中如何让窗口最小化至系统托盘

在 Delphi 语言中，实现让窗口最小化衫仔亩至系统托盘，最简单的办法是使用控件，在高版本的 Delphi 中提供了 TTrayIcon 控件，低版本可以下载安装 CnPack 小组提供的免费开源组件包中的 TCnTrayIcon 控件。

编写实现步骤如下：

1、在窗体中添加两个控件，CnTrayIcon 和 PopupMenu：

2、设置相关的属性

PopMenu 的设置如上图中示例，通常要有“显示主窗口”功能，其他的根据需要。

cnTrayIcon 的属性设置：

3、编写代码：

4、戚首运行效果截图

当或森最小化程序窗口后，会在系统托盘区显示出图标。

当鼠标移动到程序图标上，显示提示信息（Hint）:

在托盘图标上点击右键，d出菜单：

在delphi的Additional里面有一个宴粗渣TrayIcon组件，可以轻松实现这个功能：新建工程，添加一个TrayIcon组件。代码：

uses shellapiprocedure TForm1.FormCreate(Sender: TObject)

begin

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)//在任务栏隐藏凳嫌程序

TrayIcon1.Visible:=True//在托盘显示程序图标

TrayIcon1.Hint:='托盘程晌悄序'//提示信息

end

end.

去下载一个Delphi下竖手的系统托盘控件，TrayIcon，安装后，将该控件拖到窗体上，稍稍设余姿嫌置一下就好。

随便下载一个For Delphi版本的就好了，然后下载下来的安装文件中应该有扩展名为.dpk的文件，双击该文件，在随后画面中点击install应册铅该就好了。

---