标题：如何在状态栏中加入图标（或图片），还有动态的时间

时间：2006-4-9 来源：不详 浏览数：次

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;
...

private
       ...
       MyIcon:TIcon;
...

//Install
var
   IconData:TNotifyIcon;
...
   MyIcon:=TIcon.Create;
   MyIcon.LoadFromFile('icon1.ico');
   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);

（出处：http://www.678e.com）

（责任编辑：欣欣裴）

• 其他文章

• 上一篇文章： 在Delphi中如何控制其它应用程序窗口
• 下一篇文章： 对PE资源的研究

• 相关文章

如何用正则表达式来表示中文
如何使用PHP中的字符串函数
PHP中如何使用header发送头部信息
详解如何实现最基本的AJAX框架(1)
解析Ajax如何处理响应信息

最近更新

今日推荐

热点文章