Dicas - Minimizar todas as janelas

Veja nesta dica, como minimizar todas as janelas ativas do sistema operacional.

Como minimizar todas as janelas em seu computador

uses ShlObj;

�

procedure Shell_MinimizeAll;

var

Shell: OleVariant;

begin

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

Shell.MinimizeAll;

end;