Variaveis

[Pseudalopex 0]

Como faço para converte uma variavel do tipo:HWnd para String.Desde já agradeço.

[marcio.theis 3]

O HWnd é do tipo Handle, ou seja, identificador da janela, ele é um número inteiro maior que zero, e é mais utilizado pelo Windows para identificar qual foi a janela que disparou uma determinada mensagem, para pegar o n° em string, basta converter, IntToStr(HWnd)

[Pseudalopex 0]

entendi, deu certo aqui. Mas esse numero muda ou é sempre o mesmo.

 

E outra dúvida. O que eu preciso realmente é saber qual o Handle da Janela.

Tenho esse código que minimiza todas as janelas. E preciso saber o Handle das Janelas.

 

procedure TForm1.Button6Click(Sender: TObject);var MyWH,HW:HWnd;beginHW:=handle;MyWH := FindWindow(nil, 'Minha aplicação'); while HW > 0 do beginif IsWindowVisible(HW) then Postmessage(HW,WM_SYSCOMMAND,SC_MINIMIZE,0);HW:=GetnextWindow(HW,GW_HWNDNEXT);end;if IsWindowVisible(MyWH) then Postmessage(MyWH,WM_SYSCOMMAND,SC_RESTORE,0);end;

[marcio.theis 3]

Sim, o número sempre muda..Para saber o handle neste seu fonte veja dentro do seu while no momento que ele faz o comando: HW:=GetnextWindow(HW,GW_HWNDNEXT); ele atribui ao campo HW o handle da janela...

[Pseudalopex 0]

Certo mas ele joga apenas o Numero. E na verdade não é o numero que eu preciso.

 

Vou ver se consigo explicar melhor.

 

procedure TForm1.Button1Click(Sender: TObject);begin { Verifica o Delphi } if FindWindow('TAppBuilder', nil) > 0 then ShowMessage('O Delphi está aberto') else ShowMessage('O Delphi NÃO está aberto'); { Verifica o Word } if FindWindow('OpusApp', nil) > 0 then ShowMessage('O Word está aberto') else ShowMessage('O Word NÃO está aberto'); { Verifica o Excell } if FindWindow('XLMAIN', nil) > 0 then ShowMessage('O Excell está aberto') else ShowMessage('O Excell NÃO está aberto');end;

Esse OpusApp representa o Handle do Word.

É isso que eu preciso saber.

Com aquele código de cima tenho como saber esses valores?

[marcio.theis 3]

Bom, você pediu o handle, que no caso é a identificação da janela pelo número, você no caso quer saber o nome do aplicativo, do .exe, ou nome da janela ?

[Pseudalopex 0]

Então,acho que estou fazendo confusão mesmo.É o nome do aplicativo mesmo que eu preciso.Ps. Eu editei o meu post acima.

[marcio.theis 3]

Pequeno exemplo pegando o nome do caption das janelas

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	H: HWND;	nomeJanela: Array[0..255] of Char;beginH:=Handle;while H > 0 do	begin	if IsWindowVisible(H) then		begin		GetWindowText(H,nomeJanela,SizeOf(nomeJanela));		if nomeJanela <> '' then			ShowMessage('Nome: ' + nomeJanela);		end;	H:=GetNextWindow(H,GW_HWNDNEXT);	end;end;

[Pseudalopex 0]

Perfeito.Era isso mesmo.Valeu mesmo, e desculpe pela confusão.

[marcio.theis 3]

Sem stress...

Precisando estamos aqui... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Pseudalopex 0]

Bom, aproveitando o mesmo tópico.Como eu faço para fechar algum aplicativo depois que tenho o nome dele.Qual o comando mais adequado?Dei uma busca mas achei mais de uma forma.