Ola procurei e achei +ou- o que eu quero so que nesse caso ele ta digitando em um bloco de notas ele manda a msg mesmo com o bloco minimizado eu gostaria que alguém ajuda-se a fazer a mesma fuçao so q usando um key_event muito obrigado. procedure TForm1.Button1Click(Sender: TObject); var JanelaPrincipal, JanelaFilha: THandle; I: integer; Texto: string; begin Texto := 'Daniel'; JanelaPrincipal := FindWindow('Notepad', nil); if JanelaPrincipal > 0 then begin JanelaFilha := FindWindowEx(JanelaPrincipal, 0, 'Edit', nil); if JanelaFilha > 0 then begin for I := 1 to Length(Texto) do PostMessage(JanelaFilha, WM_CHAR, Ord(Texto), 0); end; end; end;