【正文】
用API函數(shù)Shell_NotifyIcon向通知欄發(fā)送消息來(lái)添加、刪除或修改圖標(biāo),當(dāng)在圖標(biāo)上發(fā)生鼠標(biāo)或鍵盤事件時(shí),系統(tǒng)會(huì)向應(yīng)用程序發(fā)送編程時(shí)預(yù)先定義的消息,通知欄處理回調(diào)函數(shù)就會(huì)被自動(dòng)調(diào)用以做出相應(yīng)的處理?! ?//指明該結(jié)構(gòu)中哪些字段的值有效 uCallbackMessage: UINT?! ?//指明dwState的哪些位可以被讀取 如:設(shè)置為NIS_HIDDEN則表示圖標(biāo)的隱藏狀態(tài)可以被讀取 szInfo: array[0..255] of AnsiChar。 NIIF_WARNING = $00000002?! ID := 0。 IconType: TBalloonIconType?! ?//設(shè)置提示信息為空,刪除氣泡提示 end?! nd {with}?! egin …… case of WM_LBUTTONDOWN: …… WM_RBUTTONDBLCLk: …… else if = NIN_BALLOONSHOW then //氣泡提示顯示后 begin if Assigned(FOnBalloonShow) then FOnBalloonShow(Self) end else if = NIN_BALLOONHIDE then //氣泡提示由于超時(shí)而消失 begin if Assigned?! trPCopy(szInfoTitle, Title)。39?! nd。 begin with FIconData do begin cbSize := SizeOf(TNotifyIconData50)?! ?/{常數(shù)聲明 Const NIIF_NONE = $00000000?! ?//uFlags字段增加了如下常數(shù)定義 NIF_STATE:dwState、dwStateMask字段有效 NIF_INFO:szInfo、uTimeout、szInfoTitle、 dwInfo