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;