Ver Mensaje Individual
  #6  
Antiguo 11-02-2004
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
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

Última edición por roman fecha: 11-02-2004 a las 07:59:56.
Responder Con Cita