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;