范文网 >资料大全 >综合资料 >系统托盘的编程

系统托盘的编程

陌流兮 分享更新时间:
投诉

系统托盘的编程

托盘消息处理:    在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知Windows在任务条右下角加入一个小图标,可惜该函数的详细说明未收入Delphi的帮助文档中。现将实现例程示范如下:unit pro2;interfaceuses  。。。, Menus,shellAPI;    //TNotifyIconData是定义在shellAPI单元的{自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}const WM_MYTRAYICONCALLBACK = WM_USER + 1000 ;。。。。private   MyTrayIcon : TNotifyIconData ;   procedure WMMyTrayIconCallBack(Var Msg : TMessage);   message WM_MYTRAYICONCALLBACK ;      //托盘消息处理过程   procedure WMCommand(Var msg : TWMCommand);   message WM_Command;      //处理托盘图标的右键菜单事件   procedure Minimize(var mess:TWMNCLBUTTONDOWN);   message WM_NCLBUTTONDOWN;      //窗体最小化时的消息处理。。。。。。。。procedure TForm1.FormCreate(Sender: TObject);begin     //将程序窗口样式设为TOOL窗口,避免在任务栏上出现   SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);end;procedure TForm1.FormShow(Sender: TObject);begin    //设置托盘    Icon.Handle := LoadIcon(Hinstance,'MAINICON');    MyTrayIcon.cbSize := SizeOf(TNotifyIconData);// nid变量的字节数    MyTrayIcon.Wnd := Handle ;// 主窗口句柄    MyTrayIcon.uID := 1 ;// 内部标识,可设为任意数    MyTrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE ;// 指明哪些字段有效    MyTrayIcon.uCallBackMessage := WM_MYTRAYICONCALLBACK ;//回调函数消息,将自定义托盘消息传递进去    MyTrayIcon.hIcon := Application.Icon.Handle; // 要加入的图标句柄,可任意指定    StrCopy(MyTrayIcon.szTip, PChar(Caption));    Shell_NotifyIcon(NIM_ADD,@MyTrayIcon);    ShowWindow(Handle,sw_Hide);    // Visible := False ;//当程序启动时就最小化在托盘区即Form.Create时启用此语句    Application.ShowMainForm := False ;    SetForegroundWindow(Application.Handle);end;////消息过程实现procedure TForm1.WMMyTrayIconCallBack(var Msg: TMessage);var CursorPos : TPoint;begin   case Msg.LParam of     WM_LBUTTONDBLCLK : //双击消息:弹出主窗口     begin       Visible := not Visible ;       Application.ShowMainForm := Visible ;       SetForegroundWindow(Application.Handle);     end ;     WM_RBUTTONDOWN : //鼠标右键:弹出菜单

  begin       GetCursorPos(CursorPos);{      Popupmenu1.Popup(CursorPos.X,CursorPos.Y);       popupmen1里面就可以加入显示主窗口、退出等功能。这个右键菜单可以是静态的,如上面一句来弹出;也可以动态建立,如下面所示的方法:}       pm := createpopupmenu;//建立一个Hmenu,pm:hmenu;       AppendMenu(pm,0,ord('A'),'关于....');//在指定的菜单里添加一个菜单项       AppendMenu(pm,0,Ord('B'),'&Exit');       //加入菜单事件---》处理WMCOMMAND消息即可       TrackPopupMenu(pm,Tpm_BottomAlign or Tpm_RightAlign, CursorPos.x, CursorPos.y, 0,handle,nil);       //在图标上方显示该弹出式菜单     end ;   end ;end;procedure TForm1.WMCommand(var msg : TWMCommand);begin   Case msg.ItemID of     Ord('A') : showmessage('我的右键菜单!');     Ord('B') : Self.close;//关闭程序主窗体     else inherited;   end;end;procedure Tform1.Minimize(var mess:TWMNCLBUTTONDOWN);//应用程序最小化消息处理begin   if Mess.Hittest = htReduce then     Self.Hide   else inherited;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);var              {程序被关闭时通知Windows去掉小图标}   nid: TNotifyIconData;begin   nid.cbSize := sizeof(nid); // nid变量的字节数   nid.uID := 1; //内部标识,与加入小图标时的数一致   nid.Wnd := Handle; //主窗口句柄   Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标end;