<br>procedure MinALL;<br>var<br> hw,my:HWnd;<br>begin<br> my:=Application.handle;<br> hw:=Application.handle;<br> while hw>0 do<br> begin<br> if (IsWindowVisible(hw)) and (hw <> my) then<br> Postmessage(hw,WM_SYSCOMMAND,SC_MINIMIZE,0);<br> hw:=GetnextWindow(hw,GW_HWNDNEXT);<br> end;<br>end;<br>给分<br>