1. 在Application的OnMinimize事件中插入以下代码即可:
...
ShowWindow(Application.Handle, SW_HIDE);
...2. 在Form的OnCreate事件中插入以下代码即可:
...
ParentWindow := GetDesktopWindow;
...
...
ShowWindow(Application.Handle, SW_HIDE);
...2. 在Form的OnCreate事件中插入以下代码即可:
...
ParentWindow := GetDesktopWindow;
...
wndHandle:THandle;
begin
wndHandle:= FindWindow('Shell_TrayWnd',nil);
ShowWindow(wndHandle, SW_HIDE);
end;