procedure MinimizeAll;

var

  Wnd: HWND;

begin

   Wnd := FindWindow( 'Shell_TrayWnd', nil );

   if Wnd <> 0 then

      SendMessage( Wnd, WM_COMMAND, $019F, 0 );

end;