DELPHI 托盘 实例

发布时间:2014-10-25 2:19:21
来源:分享查询网

 DELPHI 托盘   procedure InstallIcon;      /////////////安装托盘    procedure UninstallIcon;      ////卸载托盘    procedure IconOnclick(var msg:Tmessage); message  ICONEVENT;   ////托盘事件procedure TMain_F.InstallIcon;var  Nomallicon:TIcon;  //已连接图标  Disbleicon:Ticon;  //未连接图标begin  Nomallicon:=Ticon.Create;  Disbleicon:=Ticon.Create;  imgsicon.GetIcon(0,Nomallicon);// imgsicon是imagelist控件  imgsicon.GetIcon(1,Disbleicon);  iconData.cbSize:=sizeof(iconData);  iconData.Wnd:=Handle;  iconData.uID:=ICON_ID;  iconData.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;  iconData.uCallbackMessage:=ICONEVENT;  iconData.hIcon:=Nomallicon.Handle;  iconData.szTip:='名字';  Shell_NotifyIcon(NIM_ADD,@iconData);end;procedure TMain_F.IconOnclick(var msg:TMessage);var  m_p:Tpoint;begin  if (msg.LParam=WM_RBUTTONDOWN) then  begin    GetCursorPos(m_p);    pmnuNotify.Popup(m_p.X,m_p.Y);//pmnuNotify是PopupMenu孔件  end;end;procedure TMain_F.UninstallIcon;begin  Shell_NotifyIcon(NIM_DELETE, @IconData );end;

返回顶部
查看电脑版