Minimize semua Window

Emang bikin jengkel klo kita buka aplikasi banyak n nggak ada satupun yg di minimize, nah ini solusinya... sekali klik.. langsung MINIMIZE  !!! hehehe

procedure TForm1.Button1Click(Sender: TObject);
var
   h : HWnd;
begin
     h:=handle;
     while h > 0 do
     begin
          if IsWindowVisible(h) then
             Postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
          h:=GetnextWindow(h,GW_HWNDNEXT);
     end;
end;