Fórum Enviar caracteres para outra aplicação? #217965
03/03/2004
0
como eu faço isso???
me ajudem.
Bom_ba
Curtir tópico
+ 0Posts
03/03/2004
Adriano Santos
Esta função escreve no bloco de notas se ele estiver aberto. Vc pode adaptar para seu programa.
procedure EscreverNoBlocoDeNotas(AFrase : String);
var
WND : HWND;
I : Integer;
S : String;
begin
WND := FindWindow(´notepad´,Nil);
if (WND <> 0) and (RetornarVersaoWindows <> 2000) then
begin
WND := FindWindowEx(WND,0,´Edit´,nil);
S := AFrase;
For I := 1 to Length(S) do
SendMessage(WND,WM_CHAR,Word(S[I]),0);
PostMessage(WND,WM_KEYDOWN,VK_RETURN,0);{Simular o enter}
//PostMessage(WND,WM_KEYDOWN,VK_SPACE ,0); {Simular o Espaço}
end;
end;Gostei + 0
11/03/2004
Bom_ba
Gostei + 0
12/03/2004
Adriano Santos
só assim já funciona.
Gostei + 0
13/03/2004
Bom_ba
obrigado mesmo!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)