Enviar texto a Bloc de Notas (o cualquier programa ABIERTO)

[TiammatMX]

Pues bien, gracias a su colaboración quedó así...

Código Delphi [-]
procedure TForm1.EnviarTexto(const sTexto: string);
var
  SInfo: TStartupInfo;
  PInfo: TProcessInformation;
  Notepad: HWND;
  NoteEdit: HWND;
  ThreadInfo: TGUIThreadInfo;
begin

  ZeroMemory(@SInfo, SizeOf(SInfo));
  SInfo.cb := SizeOf(SInfo);
  ZeroMemory(@PInfo, SizeOf(PInfo));
  WaitForInputIdle(pInfo.hProcess, 5000);

  Notepad := FindWindow('Notepad', nil);

  if Bool(Notepad) then begin
    NoteEdit := FindWindowEx(Notepad, 0, 'Edit', nil);
    if Bool(NoteEdit) then begin
      SendMessage(NoteEdit, WM_SETTEXT, 0, Longint(sTexto));
      SendMessage(NoteEdit, EM_SETMODIFY, WPARAM(True), 0);
    end;

  end;
end;

La llamada...

Código Delphi [-]
var
  sTexto : string;
begin
  sTexto := edtBoleta.Text + Chr(13) + edtCamion.Text + Chr(13) + edtCargadora.Text + Chr(13);
  EnviarTexto(sTexto);
.
.
.
.
end;

Y el resultado (en Notepad, obviamente)...

5C64654654
Y9878
X6546

[Casimiro Noteví]

[[kurono]]

y como se haria en android

[[kurono]]

disculpen que respondi sin probar el codigo y que acabo de hacer y veo que solo funciona con bloc de notas con otras aplicaciones como word no funciona obviamente esto es cambiando el nombre la la aplicacion de la variable notepad

[TiammatMX]

Y ahora que quiero hacer que el programita funcione con otra aplicación (el objetivo real de hacer ésto), ya no hace nada...

Todo está basado en el nombre de la aplicación, supongo yo. Pruebo y les comento.

[ecfisa]

Hola TiammatMX.

Fijate si en estos enlaces, encontras algo que te pueda ayudar:

• Leer strings de otra aplicacion
• Leer/Enviar strings a/desde otra aplicación

Saludos

[TiammatMX]

Empezado por ecfisa

Hola TiammatMX.

Fijate si en estos enlaces, encontras algo que te pueda ayudar:

• Leer strings de otra aplicacion
• Leer/Enviar strings a/desde otra aplicación

Saludos

Por esto y por muchas cosas más, ¡¡TE AMO!! Gracias...