程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Shell_NotifyIcon函數新特性---BalloonTips之深入研究

Shell_NotifyIcon函數新特性---BalloonTips之深入研究

編輯：Delphi

首先定義新的常數：
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 中的 PlatformSDKIncludeShellAPI.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 := [email protected];
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;