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