como minimizar todos os aplicativos aberto

Delphi

07/07/2006

Como minimizar todos os aplicativos aberto na estação,
na abertura do meu aplicativo ?

ou seja, quando meu aplicativo for executado gostaria de executar uma rotima tipo o que o windows faz assim:

Windows+M


não sei se ddeu pra entender !!!


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

07/07/2006

Conheço duas rotinas para isso, mais prefiro essa:
uses ShlObj, ComObj;
procedure HideAll; 
var 
   Shell : OleVariant; 
begin 
   Shell := CreateOleObject(´Shell.Application´) ; 
   Shell.MinimizeAll; 
end;

a outra seria simular o precionamento da sequencia Windows + M
proedure WinM;
begin
 keybd_event(VK_LWIN, 0, 0, 0); 
 keybd_event(Ord(´M´), 0, 0, 0); 
 keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

espero ter ajudado :wink:


GOSTEI 0
Fabiano Góes

Fabiano Góes

07/07/2006

valeu ´paullsoftware´

isso mesmo que eu precisava !!!!

um abraço !!!


GOSTEI 0
POSTAR