使用Windows API 函数:

Shell_NotifyIcon(dwMessage: DWORD; 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 托盘图标的提示字符串。

注意：以下数据成员xx系统外壳与常用控制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);