Enviar caracteres para outra aplicação?

Delphi

03/03/2004

Estou com problema na minha aplicação pois surgiu a necessidade de enviar caracteres para uma outra janela...

como eu faço isso???

me ajudem.


Bom_ba

Bom_ba

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

03/03/2004

Veja se isso já te ajuda.
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
Bom_ba

Bom_ba

03/03/2004

Ok man, obrigado pela ajuda!


GOSTEI 0
Adriano Santos

Adriano Santos

03/03/2004

isso não precisa

if (WND <> 0) [color=red:2ca76ad6dd]and (RetornarVersaoWindows <> 2000) [/color:2ca76ad6dd]then




if (WND <> 0) then


só assim já funciona.


GOSTEI 0
Bom_ba

Bom_ba

03/03/2004

ok irmão,

obrigado mesmo!


GOSTEI 0
POSTAR