新年快乐----怎样把程序的图标显示在工具栏里(在線等待)

Question

我一直想把我自己写的程序点开后显示在任务工具栏里(右下角),请问如何实现?谢谢

Answer 1

很easyprocedure TfrmSrvModal.InstallIcon;
var IconData: TNotifyIconData;
begin
  normalicon := TIcon.Create;
  normalicon.LoadFromFile('c:\11.ico');
  IconData.cbSize := SizeOf(IconData);
  IconData.Wnd := Handle;
  IconData.uID := ICON_ID;
  IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  IconData.uCallBackMessage := MI_ICONEVENT;
  IconData.hIcon := normalicon.Handle;
  IconData.szTip := TIP_NAME;
  Shell_NotifyIcon(NIM_ADD, @IconData);
end;
调用该函数即可

Answer 2

这个问题好象已经被问烂了吧，搜索一下嘛
Shell_NotifyIcon