minimizar todas as aplica��es da area de trabalho(URG!!)

Question

ola pessoal, como posso minimizar todas as aplica��esque estao ativas da area de trabalho do windows, apenas clicando em um botao???abra�os!...

Beppe · Answer

[code:1:cdb89bbb2b]keybd_event(VK_LWIN, 0, 0, 0); keybd_event(Ord(�M�), 0, 0, 0); keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);[/code:1:cdb89bbb2b]...

Muxagata · Answer

Achei muito boa essa solu��o, por�m ela minimiza tudo exceto o pr�prio programa. Como fa�o para minimizar tudo, inclusive o pr�prio programa que invoca a tarefa?...

Beppe · Answer

U�, deveria minimizar...afinal, � um WinKey+M! Tente trocar Ord(�M�) por Ord(�D�), ou acrescente Application.Minimize no final daquele meu c�digo....

Muxagata · Answer

Com application.minimize resolveu. Valeu, muito obrigado. Eu coloquei outra d�vida que talvez voc6e saiba. Ao minimizar a aplica��o eu gostaria de escrever na barra de titulo minimizada um percentual mostrando a evolu��o da execu��o do aplicativo e ao final piscasse para mostrar que acabou. voce sabe fazer isso?

Muxagata · Answer

Com Ord �D� funcionou melhor que o application.Minimize. Dentro desta rotina que voc� passou, se eu quizesse que s� aplica��o minimizasse o que deveria ser feito?...

Beppe · Answer

[quote:1a606ecf6a=�Muxagata�]Com application.minimize resolveu. Valeu, muito obrigado. Eu coloquei outra d�vida que talvez voc6e saiba. Ao minimizar a aplica��o eu gostaria de escrever na barra de titulo minimizada um percentual mostrando a evolu��o da execu��o do aplicativo e ao final piscasse para mostrar que acabou. voce sabe fazer isso?[/quote:1a606ecf6a]Bote um timer que muda Application.Title. Para piscar o bot�o, use FlashWindow ou FlashWindowEx. Se usar o �Pesquisar�, voc� acha a sintaxe.[quote:1a606ecf6a=�Muxagata�]Dentro desta rotina que voc� passou, se eu quizesse que s� aplica��o minimizasse o que deveria ser feito?[/quote:1a606ecf6a]Cuma? :shock: O que n�o � para ser minimizado?...

Cebikyn · Answer

Para minimizar apenas a aplica��o, basta chamar [b:51bfd5d81a]Application.Minimize;[/b:51bfd5d81a]

E apenas a t�tulo de curiosidade, segue uma outra forma de minimizar tds as janelas:

uses ShlObj;

procedure Shell_MinimizeAll;
var
   Shell : OleVariant;
begin
   Shell := CreateOleObject(�Shell.Application�) ;
   Shell.MinimizeAll;
end;

F�rum minimizar todas as aplica��es da area de trabalho(URG!!) #239321