How to Minimize All Windows

uses ComObj;

procedure MinimizeAll;
var
  Shell : OleVariant;
begin
  try
   Shell := CreateOleObject('Shell.Application') ;
   Shell.MinimizeAll;
  finally
  end;
end;