如何动态改变托盘图标

Question

如题

Answer 1

用CoolTrayIcon组件,它的Demos里面有很好的解决方案

Answer 2

上盒子上搜搜TrayIcon组件,有很多效果可以选择

Answer 3

CoolTrayIcon是目前最好的托盤控件，強烈推薦！D5/D6/D7/D9 適用。

Answer 4

//系统托盘
procedure Tfrm_Main.FSetNotifyData(AFlag, AIconIndex: integer);
var
  m_nid : PNotifyIconData;
begin
  m_nid := new(PNotifyIconData);
  m_nid.cbSize := sizeof(PNotifyIconData);
  m_nid.Wnd := Self.Handle;
  m_nid.hIcon := FIcon[AIconIndex].Handle;
  m_nid.uID := 0;
  m_nid.szTip := '智信通餐饮';
  m_nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  m_nid.uCallbackMessage := WM_BARICON;
  case AFlag of
    NotifyAdd : Shell_NotifyIcon(NIM_ADD,m_nid);   //添加托盘
    NotifyDelete : Shell_NotifyIcon(NIM_DELETE,m_nid);  //删除托盘
    NotifyReturn : Shell_NotifyIcon(NIM_MODIFY,m_nid);  //改变托盘图标
  end;
end;  FIcon : array[0..2] of TIcon;  //三个图标
  FIcon[0] := TIcon.Create;
  FIcon[0] := Image1.Picture.Icon;
  FIcon[1] := TIcon.Create;
  FIcon[1] := Image2.Picture.Icon;
  FIcon[2] := TIcon.Create;
  FIcon[2] := Image3.Picture.Icon;