| 
 | 
 
将程序隐藏于系统托盘除了使用 TrayIcon 控件外,还可以用以下方法: 
使用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 托盘图标的提示字符串。 
注意:以下数据成员仅限系统外壳与常用控制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); |   
 
 
 
 |