这是 Delphi 系统托盘 TrayIcon 控件的例子，里面还有快捷菜单的操作。 ,This is the Delphi system tray TrayIcon control example, there is also the operation of the shortcut menu.

本例程是利用Windows API函数Shell_NotifyIcon()实现系统托盘图标功能,这个函数和其他处理Windows外壳的函数都包含在ShellAPI单元中 在窗口创建时在Windows任务栏的右下角创建一个托盘图标,图标由两个ICON交替出现,当窗口最小化时任务栏中只有托盘图标,当左键单击托盘图标窗口恢复,图标停止交替.-This routine is to use Windows API function Shell_NotifyIcon () function to ach

Delphi自定义托盘控件，当运行程序后可以自动缩小到右下方状态栏上面-Delphi custom tray control, when, after running the program can automatically reduced to the lower right corner above the status bar