Shell_NotifyIcon函数新特性---Balloon Tips之深入研究

关注

原创最新推荐文章于 2026-08-09 15:43:31 发布 2k 阅读 AI 写同款· GEO 优化 ›

深入理解ShellExecuteEx与Shell_NotifyIcon的使用本篇博客深入探讨了Windows编程中两个高级功能：ShellExecuteEx和Shell_NotifyIcon。通过具体的示例代码，介绍了如何利用ShellExecuteEx打开文件、执行程序、显示窗口等，并详细解释了其lpExecInfo结构中的各个参数的含义。同时，对Shell_NotifyIcon函数进行了讲解，包括如何在系统托盘中添加、修改或移除通知图标，并展示了相关结构体的使用方法。文章旨在为Windows开发者提供实用的编程技巧和深入理解。阅读详情

首先定义新的常数：

 const
 
  NIF_INFO = $10;
 
  NIM_SETVERSION = $00000004;
 
  NOTIFYICON_VERSION = 3;
 
  NIM_SETFOCUS = $00000003;
 
  NIIF_INFO = $00000001;
 
  NIIF_WARNING = $00000002;
 
  NIIF_ERROR = $00000003;
 
  NIN_BALLOONSHOW = WM_USER + 2;
 
  NIN_BALLOONHIDE = WM_USER + 3;
 
  NIN_BALLOONTIMEOUT = WM_USER + 4;
 
  NIN_BALLOONUSERCLICK = WM_USER + 5;
 
  NIN_SELECT = WM_USER + 0;
 
  NINF_KEY = $1;
 
  NIN_KEYSELECT = NIN_SELECT or NINF_KEY;
 
  {上面列的可能不全，如果没有定义到的，可在 vs.net 中 vc7 中的 PlatformSDK/Include/ShellAPI.h 中找到}

再定义一个SysTrayIcon的回传消息：

 TRAY_CALLBACK = WM_USER + $7258;

然后定义新的 NotifyIconData 结构（放在Type中）：

 Type
 
  PNewNotifyIconData = ^TNewNotifyIconData;
 
  TDUMMYUNIONNAME = Record
 
    case Integer of
 
      0: (uTimeout: UINT);
 
      1: (uVersion: UINT);
 
  end;
 
  TNewNotifyIconData = Record
 
    cbSize: DWORD;
 
    Wnd: HWND;
 
    uID: UINT;
 
    uFlags: UINT;
 
    uCallbackMessage: UINT;
 
    hIcon: HICON;
 
    szTip: array [0..127] of Char;    //Version 5.0为128个，以前为64个
 
    dwState: DWORD;    //Version 5.0
 
    dwStateMask: DWORD;    //Version 5.0
 
    szInfo: array [0..255] of Char;   //Version 5.0
 
    DUMMYUNIONNAME: TDUMMYUNIONNAME;
 
    szInfoTitle: array [0..63] of Char;   //Version 5.0
 
    dwInfoFlags: DWORD;   //Version 5.0
 
  end;

声明一个全局变量：

 var
 
  IconData: TNewNotifyIconData;

接着转入正题，下面一个过程用来添加 SystrayIcon ：

 procedure AddSysTrayIcon;
 
begin
 
  IconData.cbSize := sizeof(IconData);
 
  IconData.Wnd := AllocateHWnd(SysTrayIconMsgHandler);    //Self.Handle;  {SysTrayIconMsgHandler 为后面定义的消息处理过程}
 
  IconData.uID := 0;
 
  IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
 
  IconData.uCallbackMessage := TRAY_CALLBACK;   //自定义回传消息
 
  IconData.hIcon := Image1.Picture.Icon.Handle;    //此处为一 Icon 的 Handle
 
  IconData.szTip := 'Please send me email.';
 
  if not Shell_NotifyIcon(NIM_ADD, @IconData) then
 
    showmessage('add fail');
 
end;

再有一个过程用来显示 Balloon Tips ：

 procedure ShowBalloonTips;
 
var
 
  TipInfo, TipTitle: string;
 
begin
 
  IconData.cbSize := sizeof(IconData);
 
  IconData.uFlags := NIF_INFO;
 
  TipInfo := 'Please send me email.';
 
  strPLCopy(IconData.szInfo, TipInfo, sizeof(IconData.szInfo) - 1);
 
  IconData.DUMMYUNIONNAME.uTimeout := 3000;
 
  TipTitle := 
 'Happyjoe@21cn.com';
 
  strPLCopy(IconData.szInfoTitle, TipTitle, sizeof(IconData.szInfoTitle) - 1);
 
  IconData.dwInfoFlags := NIIF_INFO;     //NIIF_ERROR;  //NIIF_WARNING;
 
  Shell_NotifyIcon(NIM_MODIFY, @IconData);
 
  //下面的代码实际上没有用，去掉也可以（至少目前这样认为）
 
  IconData.DUMMYUNIONNAME.uVersion := NOTIFYICON_VERSION;
 
  if not Shell_NotifyIcon(NIM_SETVERSION, @IconData) then
 
    showmessage('setversion fail');
 
end;

别忘了删除过程：

 procedure DeleteSysTrayIcon;
 
begin
 
  DeallocateHWnd(IconData.Wnd);
 
  if not Shell_NotifyIcon(NIM_DELETE, @IconData) then
 
    showmessage('delete fail');
 
end;

还有重要的环节---消息处理：

声明：

   procedure SysTrayIconMsgHandler(var Msg: TMessage); message TRAY_CALLBACK;

定义：

 procedure SysTrayIconMsgHandler(var Msg: TMessage);
 
begin
 
  case Msg.LParam of
 
    WM_MOUSEMOVE: ;
 
    WM_LBUTTONDOWN: ;
 
    WM_LBUTTONUP: ;
 
    WM_LBUTTONDBLCLK: ;
 
    WM_RBUTTONDOWN: ;
 
    WM_RBUTTONUP: ;
 
    WM_RBUTTONDBLCLK: ;
 
    //以下为新加入的消息
 
    NIN_BALLOONSHOW:     {当 Balloon Tips 弹出时执行}
 
      showmessage('NIN_BALLOONSHOW');
 
    NIN_BALLOONHIDE:    {当 Balloon Tips 消失时执行（例如 SysTrayIcon 被删除），但指定的 TimeOut 时间到或鼠标点击 Balloon Tips 后的消失不发送此消息}
 
      showmessage('NIN_BALLOONHIDE');   
 
    NIN_BALLOONTIMEOUT:        {当 Balloon Tips 的 TimeOut 时间到时执行}
 
      showmessage('NIN_BALLOONTIMEOUT');
 
    NIN_BALLOONUSERCLICK:    {当鼠标点击 Balloon Tips 时执行。注意：在XP下执行时 Balloon Tips 上有个关闭按钮，而且 Balloon Tips 一直显示（IconData.DUMMYUNIONNAME.uTimeout := 3000; 这句话设定的时间没有用，我的测试是这样的），如果鼠标点在按钮上将接收到 NIN_BALLOONTIMEOUT 消息。}
 
      showmessage('NIN_BALLOONUSERCLICK');
 
  end;
 
end;