将程序隐藏于系统托盘除了使用 TrayIcon 控件外，还可以用以下方法：
使用Windows API 函数:
Shell_NotifyIcon(dwMessage: D
word; lpData: PNotifyIconData);
1.dwMessage：[输入参数] 说明要执行的动作。动作的可选值如下：
NIM_ADD 增加一个图标到托盘区
NIM_DELETE 从托盘区删除一个图标
NIM_MODIFY 修改图标
NIM_SETFOCUS 将焦点（Focus）返回托盘区。这个消息通常在托盘区图标完成了用户界面下的操作后发出。比如一个托盘图标显示了一个快捷菜单，然后用户按下ESC键了操作，这时使用NIM_SETFOCUS将焦点继续保留在托盘区。该项仅在系统外壳与常用控制DLL（ Shlwapi.dll与Comctl32.dll）5.0以上版本才可用。
NIM_SETVERSION 指定使用特定版本的系统外壳与常用控制DLL。缺省值为0，表示使用Win95方式。该项在系统外壳与常用控制DLL 5.0以上版本才可用。
2.lpdata：[输入参数] 一个指向NOTIFYICONDATA结构的指针。 结构的说明如下：
cbSize 以字节计的结构大小，以适应不同版本。
hWnd 接收Windows消息的窗口句柄。
uID 托盘图标的ID。
uFlags 指示结构中的哪些成员包含有效数据，可选值：NIF_ICON， NIF_MESSAGE，NIF_TIP，NIF_STATE，
NIF_INFO，NIF_GUID。
uCallbackMessage 回调消息ID，由用户自定义。与一个自定义的消息处理函数关联。
hIcon 托盘图标的句柄。
szTip 托盘图标的提示字符串。
注意：以下数据成员仅限系统外壳与常用控制DLL 5.0及以上版本才有效！
dwState 图标的状态：NIS_HIDDEN－隐藏，或NIS_SHAREDICON－可视。
dwStateMask 图标状态掩码，用以设置dwState
szInfo 气球型提示（Balloon ToolTip）的字符串。
uTimeout 以毫秒计的提示显示时间
uVersion 确定所依赖的版本。0－Win95，NOTIFYICON_VERSION－Win2000
szInfoTitle 气球型提示的标题
dwInfoFlags 设置气球型提示所用的图标（类似MessageBox中所使用的图标）：
NIIF_ERROR 错误
NIIF_INFO 信息
NIIF_NONE 没有图标
NIIF_WARNING 警告
NIIF_ICON_MASK 6.0版本保留
NIIF_NOSOUND 限6.0版本，不播放对应的声音
3.返回值：成功时函数返回TRUE，否则FALSE。
例子：添加系统托盘图标
var Tray:NOTIFYICONDATA;
Tray.cbSize:=sizeof(Tray);
Tray.Wnd:=Self.Handle;
Tray.uID:=9998;
Tray.uFlags:=NIF_ICON+NIF_MESSAGE+NIF_TIP;
Tray.uCallbackMessage:=WM_USER;
Tray.hIcon:=application.Icon.Handle ;
Tray.szTip:=定时关机;
Shell_NotifyIcon(NIM_ADD,@Tray);
