当前位置:编程学习 > Delphi >>

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 ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,