Dicas - Minimizar todas as janelas

Como minimizar todas as janelas em seu computador

uses ShlObj;

…

procedure Shell_MinimizeAll;

var

  Shell: OleVariant;

begin

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

  Shell.MinimizeAll;

end;