Minimizar / Restaurar todo

[roman]

Otra forma de hacerlo

Código Delphi [-]
uses
  ComObj;

procedure OcultarVentanas;
var
  Shell: OleVariant;

begin
  Shell := CreateOleObject('Shell.Application');
  Shell.MinimizeAll;
  Shell := Unassigned;
end;

procedure MostrarVentanas;
var
  Shell: OleVariant;

begin
  Shell := CreateOleObject('Shell.Application');
  Shell.UndoMinimizeAll;
  Shell := Unassigned;
end;