DELPHI 托盘 实例

 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;