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

原创 2002年05月27日 09:51:00

首先定义新的常数:

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;

好了,代码写完了。我原先还在到处贴贴子问及如何强制显示 SysTrayIcon 的Tips,现在看来只要执行 ShowBalloonTips (将结构中新的域赋上值,执行NIM_MODIFY 动作)就立即显示出来了。不知道自己回答了自己的问题斑竹会不会给分啊。 ^_^

新特性需要 IE5.0 或以上版本,我在 Win2000、XP + Delphi 6.0下测试通过。手头没有98/ME,不知道可不可以。
(完)

【VS开发】最小化到托盘 shell_notifyicon和NOTIFYICONDATA

shell_notifyicon和NOTIFYICONDATA Shell_NotifyIcon函数,向任务栏的状态栏发送一个消息 函数原型 BOOL Shell_NotifIcon( ...
  • LG1259156776
  • LG1259156776
  • 2017年03月08日 14:56
  • 263

Shell_NotifyIcon如何强制显示tip

 例如在程序退出是,systrayicon强制显示一个提示,等待若干秒退出LRESULT CMainFrame::OnDestroy(UINT /*uMsg*/, WPARAM /*wParam*/,...
  • cleverwyq
  • cleverwyq
  • 2007年06月25日 11:36
  • 1269

java总结(之二)--容器的深入研究

容器部分归纳为三篇来写,分别从基本用法,深入研究,以及在算法中的应用。本章主要介绍深入研究,具体实现部分。 上图是集合类库的完备图,包括抽象类和遗留构件。CollectionListList是...
  • u014773478
  • u014773478
  • 2015年07月02日 13:02
  • 770

shellnotifyicon,托盘图标气泡提示问题

要实现这些功能不复杂,首先要了解NOTIFYICONDATA结构体:NOTIFYICONDATA 结构体说明  包含系统需要的用来传递托盘区域消息的信息。  1、格式  typedef struct ...
  • linlin003
  • linlin003
  • 2009年12月27日 12:11
  • 2647

杭电ACM----------1004 Let the Balloon Rise

Problem Description Contest time again! How excited it is to see balloons floating around. But to te...
  • u011619422
  • u011619422
  • 2015年06月24日 00:07
  • 1852

Shell_NotifyIcon - Handling Shell_NotifyIcon failure

Shell_NotifyIcon will often fail when called during Windows startup (for instance, if your applicati...
  • chenlycly
  • chenlycly
  • 2014年09月04日 14:43
  • 1222

windows 7 Shell_NotifyIcon 使用的问题

在windows 7上,Visual Studio 2012,只想做一个ballon提示,从网上各种百度,效果都不会,最终微软sdk的example找到了完整的例子。 使用的工程是vs2005 升级...
  • lvronglee
  • lvronglee
  • 2016年10月26日 16:36
  • 764

Shell_NotifyIcon 修改托盘图标失败的问题

最近需要完成托盘图标闪烁的功能,但是一直没有达到效果,使用Shell_NotifyIcon 一直返回1460的错误。 后面找了很多资料发现问题;NOTIFYICONDATA结构只能在NIM_ADD里...
  • qingzai_
  • qingzai_
  • 2017年08月29日 10:56
  • 314

关于调用Shell_NotifyIcon操作托盘图标失败的说明

Handling Shell_NotifyIcon failure Shell_NotifyIcon will often fail when called during Windows star...
  • chenlycly
  • chenlycly
  • 2014年05月07日 21:41
  • 2550

Shell_NotifyIcon

这个shell api是给桌面右下角的任务状态栏发消息的,一般给程序添加托盘就是用这个函数来做。 用法:  1.添加托盘图标      NOTIFYICONDATA ndata = {0...
  • linfengmove
  • linfengmove
  • 2013年12月11日 14:36
  • 1035
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Shell_NotifyIcon函数新特性---Balloon Tips之深入研究
举报原因:
原因补充:

(最多只允许输入30个字)