1:
2:
3:
4:
5:
6:
7:

h := Handle;
while h > 0 do
begin
  if IsWindowVisible(h) then
    PostMessage(h, WM_SYSCOMMAND, [b]SC_CLOSE[/b], 0);
  h := GetNextWindow(h, GW_HWNDNEXT);
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure MinimizeAll; 
begin 
  KeyBd_Event(VK_LWIN, MapvirtualKey(VK_LWIN, 0), 0, 0); 
  KeyBd_Event(Ord('M'), MapvirtualKey(Ord('M'), 0), 0, 0); 
  KeyBd_Event(Ord('M'), MapvirtualKey(Ord('M'), 0), KEYEVENTF_KEYUP, 0); 
  KeyBd_Event(VK_LWIN, MapvirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0); 
end;