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