求一份最小化到托盘的代码

Question

给个完整的吧，虽然能百度到，但是我不是这个专业的，实在不容易懂，看到了也不知道贴哪里

Answer 1

装个CoolTrayIcon控件即可，网上有下载

Answer 2

Delphi 高版本，有原生的。

Answer 3

delphi7 win32 中就有TrayIcon//由桌面转托盘
function TServerFrm.AddIcon(hwnd: HWND): Boolean;
begin
  nid.cbSize := sizeof(NOTIFYICONDATA);
  nid.Wnd := hwnd;
  nid.uID := ID_MAIN;
  nid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  nid.uCallbackMessage := WM_WZGLNOTIFY;
  nid.hIcon := LoadIcon(hInstance, 'MAINICON');
  strCopy(nid.szTip, strNotifyTip);
  AddIcon := Shell_NotifyIcon(NIM_ADD, @nid);
end;////由托盘转桌面
function TServerFrm.RemoveIcon(hwnd: HWND): Boolean;
var
  nid: NOTIFYICONDATA;
begin
  nid.cbSize := sizeof(NOTIFYICONDATA);
  nid.Wnd := hwnd;
  nid.uID := ID_MAIN;
  nid.uFlags := 0;
  RemoveIcon := Shell_NotifyIcon(NIM_DELETE, @nid);
end;