Ver Mensaje Individual
  #2  
Antiguo 13-06-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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;
Responder Con Cita