Como minimizar todas as janelas em seu computador

 

uses ShlObj;

procedure Shell_MinimizeAll;

var

  Shell: OleVariant;

begin

  Shell := CreateOleObject('Shell.Application') ;

  Shell.MinimizeAll;

end;