ActiveDelphi

[maxspider]

procedure Enviar(chr:char);
begin
Phandle:= findwindow(nil,'Nomeprograma');

SendMessage(PHANDLE, WM_CHAR, Ord(chr), 0);
end;


depois no evento click do button é

Enviar(chr(vk_tab)); << se mudar aqui para (vk_F1) não funciona.

esse código acima funciona ,mas se eu mudar a tecla para (vk_F1) o programa não envia a tecla 'F1' e sim a tecla 'p' , alguem sabe pq?

[gilsonnrodrigues]

F1 é Char?

vc tentou com WM_KEYxx

[maxspider]

não da usando a Wm_F1

[gilsonnrodrigues]

no lugar de WM_CHAR usar WM_KeyDown

[GustavoToyota]

WM_CHAR é a mensagem de caracteres.
WM_KEYDOWN é a mensagem de pressionamento de tecla.

[maxspider]

Obrigado amigos funcionou.