delphi Shell_NotifyIcon(系统托盘图标API函数)
将程序隐藏于系统托盘除了使用 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);
补充:软件开发 , Delphi ,