Quick Tips: Minimizando todas as janelas

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Nesta quick tip veremos como minimizarmos todas as aplicações abertas no Windows.

Quick Tips: Minimizando todas as janelas

 

Nesta quick tip veremos como minimizarmos todas as aplicações abertas no Windows.

 

Para minimizarmos todas as aplicações do Windows, precisamos usar um recurso do ShellApplication e para isso precisamos dar uses nas seguintes units:

 

OleAuto, ShlObj

 

Depois disso basta escrevermos o seguinte código para minimizar todas as aplicações abertas no Windows:

 

procedure TForm1.Button1Click(Sender: TObject);

var

   Shell : OleVariant;

begin

   Shell := CreateOleObject('Shell.Application') ;

   Shell.MinimizeAll;

end;



É isso aí pessoal, vou ficando por aqui.
Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.

Ricardo Coelho

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?