PostMessage Para o programa em execu��o

Question

Bom dia pessoal...estou aq d novo com mais uma d�vida...Eu estou tentando enviar um caracter para um programa em execu��o usando o PostMessage...Por exemplo, estou testando com o Word 2003, Windows Vi...

Wdrocha · Answer

esqueci de dizer q...estou usando um teclado virtual q estou desenvolvendo...vlw...

Nildo · Answer

Ol�.Ap�s colocar foco na janela, tente usar a fun��o keybd_event( [codigo da tecla], 0, 0, 0 );Faz um tempinho que n�o programo com Delphi ent�o estou um pouco enferrujado...

Wdrocha · Answer

Nildo....fiz como vc mandou e o c�digo ficou assim...

//******************************************************************************
Procedure TForm1.BtCedilhaClick(Sender: TObject);

Var MyHandle : THandle;

Begin

MyHandle := FindWindow(�OpusApp�, nil);

//MyHandle := Getwindow(MyHandle,GW_CHILD);

If (MyHandle <> 0) then
Begin
PostMessage( myHandle, WM_SETFOCUS, 0, 0);

keybd_event( 65, 0, 0, 0 );

SendMessage(MyHandle, WM_SETTEXT, 0, Integer(PChar(�Williame Rocha�)));

End;
End;
//******************************************************************************

Se eu deixar a segunda linha comentada....ele muda o t�tulo do documento....Se eu descomentar a segunda linha....ele n�o faz nada...

o q eu sei q tenho q fazer e n�o sei como, � pegar o handle da janela filha....ou a �ltima janela q esteve com o focus pra assim poder enviar os caracteres....Ele est� enviando para a janela m�e...

Eu pus o c�digo q vc indicou mas...ele escreve a letra no pr�prio delphi...

Vc tem mais alguma id�ia??

Vlw...

Nildo · Answer

Bom, � o seguinte... O WM_SETTEXT altera o Caption da janela. O keybd_event simula o pressionamento de uma tecla. Logo, voc� deve antes de enviar o keybd_event, dar um SetForegroundWindow da janela que voc� quer enviar a tecla.

Dessa maneira a tecla ser� enviada para a janela que estar� ativa. Ent�o brinque com essas APIs: SetForegroundWindow, FindWindow e Keybd_event

Wdrocha · Answer

Eu fiz o q vc falow...mas...Acontece o seguinte....Ele s� escreve se estiver no modo debug....qdo eu clico no bot�o para enviar o SenMessage e aperto rapidamente na tecla F9 ele escreve no Wordmas s� escreve uma vez.....nas outras vezes ele escreve no form...Eu fiz um teste e a partir da segunda vez usando o SETTEXT, foi pra saber em qual janela estava o focus ele muda o caption do form.... O c�digo ficou assim Nildo...//***********************************************************Procedure TForm1.Button1Click(Sender: TObject);Var  Handle : THandle;  Begin      If Handle <> 0 Then          Begin             SendMessage (Handle, WM_SETFOCUS, 0, 0);             SetForegroundWindow(Handle);             KeyBd_Event (67, 0,0,0);             SendMessage(Handle, WM_SETTEXT, 0, Integer(Pchar(�Williame Rocha�)));          End;  End;//***********************************************************Falta pouco.....rsrsrVlw....alguma luz??  javascript:emoticon(�:lol:�) :lol:...

Nildo · Answer

T� quase la. Mas assim, voc� declarou a variavel la como THandle, mas voc� n�o atribuiu nada a ela!...

Wdrocha · Answer

Pow cara consegui....Vlw mesmo...O c�digo ficou assim....//******************************************************************************Procedure TForm1.Button1Click(Sender: TObject);  Begin      Handle  := FindWindow(�OpusApp�, Nil);//Variavel Global pra n�o perder o focus da janela      Ax := Handle;//Variavel Global, guarda o handle da janela m�e      Handle := GetWindow (Handle, GW_CHILD);//Pega o handle da janela filha      If Handle <> 0 Then          Begin             SendMessage (Handle, WM_SETFOCUS, 0, 0);             SetForegroundWindow(Handle);             KeyBd_Event (70, 0,0,0);          End;          SendMessage(ax, WM_SETFOCUS, 0, 0);//Devolve o focus a janela m�e  End;//******************************************************************************Agora tem outras coisas que eu preciso fazer...Certas horas o SO fica maluco....qdo eu clico na tecla da letra q eu quero enviar, por exemplo, ele chama a janela de pesquisa do Windows....outra hora ele abre o Windows Explorer....rsrsrs...Aew eu tenho q reiniciar a maq....ma isso � o d menos.....O q me interessa agora...� como saber qual janela est� com o focus.....independente de ser o Word, Firefox e etc....e enviar o caracter para a janela q estiver com o focusTem como ??Vlw....Mt Obrigado por est� me ajudando....qdo o teclado estiver pronto eu vou disponibilizar aq pra quem quiser.......

Nildo · Answer

De alguma maneira o bot�ozinho do windows do teclado ta apertado. N�o fisicamente mas o SO ta interpretando como tal. Olhe na SDK do windows os par�metros da keybd_event. Se eu n�o me engano depois que vc da o sinal que voc� apertou uma tecla, tem que mandar o sinal de que voc� soltou a tecla. E isso voc� indica nos par�metros.

Wdrocha · Answer

Vlw cara....eu vou procurar....Mt obrigado pela ajuda....Mt grato a vc....Vlw....Abra�os,Williame Rocha...

Nildo · Answer

Estamos ai!...

Wdrocha · Answer

Como eu fa�o pra pegar o handle de uma janela atrav�s do click do mouse???...

Nildo · Answer

Como assim? Voc� quer clicar em um local da janela e pegar o handle desse local?...

Wdrocha · Answer

Sim...olha o q tah acontecendo Nildo....

Eu alterei o c�digo para q ele envie mensagem para qualquer lugar q aceite texto...

mas ele tah pegando o handle do bot�o q eu tow clicando....e tah enviando a mensagem pro bot�o....

o firefox tah rolando atr�s dele por exemplo....� pra ele q deveria ser a letra enviada e n�o pro bot�o q eu cliquei.....

Nildo · Answer

�. Ele envia a mensagem para o que for que esteja em foco. Por isso voce tem que se certificar que voc� est� enviando para o controle que est� em foco.

Um bom comećo seria estudar esta p�gina: http://www.codeproject.com/KB/winsdk/hwndfrommouseclick.aspx

Wdrocha · Answer

esqueci d falar q....ele s� escreve a primeira letra no firefox, por exemplo....e depois n�o escreve mais........