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

[xieshen947]

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

[iamduo]

Delphi 高版本，有原生的。

[luck8000]

还是楼上说的用控件吧！很多很多！

[feiba7288]

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

[hsfzxjy]

rxTrayIcon

[lyhoo163]

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;