Bueno, este es un tema de hace tres meses pero buscando otra cosa me encontré esto que puede interesarle a alguien:
Código:
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;
// Saludos