国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

如何在狀態欄中加入圖標（或圖片），還有動態的時間

2019-11-18 18:58:39
字體：大 中 小
來源：轉載
供稿：網友
function Shell_NotifyIcon(dwMessage:DWord;lpData:PNotifyIconData):BOOL;stdcall;
在shellapi單元中。

dwMessage:NIM_ADD
          NIM_MODIFY
          NIM_DELETE

PNotifyIconData=^TNotifyIconDataA
TNotifyIconDataA=record
      cbSize:DWORD;
      Wnd:HWND;
      uID:UINT;
      uFlags:UINT;
      uCallbackMessage:UINT;
      hIcon:HICON;
      szTip:array[0..63] of AnsiChar;
end;

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
...
const
     MyIconID=1;
     MyIconEvent=WM_USER+1;
...

   with IconData do
   begin
        cbSize:=SizeOf(IconData);                 //
        Wnd:=Form1.Handle;                        //
        uID:=MyIconID;                            //
        uFlags:=NIF_ICON;
        uCallBackMessage:=MyIconEvent;
        hIcon:=Handle;                           //Change
        szTip:='My Test Icon';
        Shell_NotifyIcon(NIM_ADD,@IconData);
...
//做了標記的是改或刪時要設的。

//precedure IconOnClick(msg:TMessage);message MyIconEvent;
if(msg.lParam=WM_RBUTTONDOWN) then
  GetCursorPos(p);                              //p:TPoint;
  PopupMenu1.Popup(p.x,p.y);

上一篇：裝扮工具提示條

下一篇：在程序中加入英文朗讀功能

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 九龙县| 华蓥市| 宁远县| 南和县| 海淀区| 九江县| 平陆县| 新安县| 方山县| 汝阳县| 云龙县| 漳州市| 平昌县| 平利县| 大港区| 太保市| 潜山县| 天台县| 广昌县| 神池县| 大方县| 城口县| 桦甸市| 禄丰县| 象山县| 米泉市| 湖口县| 广州市| 江口县| 敦煌市| 灵石县| 侯马市| 平远县| 洪江市| 政和县| 吴桥县| 宣汉县| 榆林市| 天镇县| 鹰潭市| 潼南县|