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

[TiammatMX]

Buen día/tarde/noche (según aplique)...

Retomando la programación en Delphi después de unas "vacaciones" forzadas, les comento. Tengo abierta una ventana de bloc de notas en blanco, mi aplicación en Delphi y mucho entusiasmo, pero ahora debo ESCRIBIR en el bloc de notas el contenido de tres TEdit en un orden específico al momento de pulsar un botón. Ya me dediqué a buscar en el memorial del club, pero no encuentro nada medianamente aproximado a lo que requiero.

¿Algún alma caritativa que pueda apoyarme con éste detalle? Y sí, perro viejo sí aprende nuevos trucos con la motivación adecuada...

[Casimiro Notevi]

No sé si esto te sirve.
https://www.thoughtco.com/basic-clip...-paste-1058406

[TiammatMX]

Empezado por Casimiro Notevi

No sé si esto te sirve...

No, Casi, no quiero un "copipasteado", que eso ya lo tengo "dominado", más bien aspiro a "tengo mi aplicación abierta (bloc de notas), la pantalla en Delphi, le tecleo datos a la pantalla, pulso un botón y mágicamente aparecen en el bloc de notas"...

[aposi]

mira si con esto te funciona.




https://stackoverflow.com/questions/...blem-in-delphi

[bucanero]

Hola!!,

prueba este código, información obtenida desde aqui:
https://stackoverflow.com/questions/...n-using-winapi

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  notepad, edit: HWND;
  i: integer;
  s: string;
begin
  notepad := FindWindow('notepad', nil);
  edit := FindWindowEx(notepad, FindWindow('Edit', nil), nil, nil);

  s := Edit1.Text;
  for i := 1 to Length(s) do
    SendMessage(edit, WM_CHAR, dword(s[i]), 0);
end;

[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 Notevi]

[[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...

[ecfisa]

¡Bah... a cuantos le dirás lo mismo !

Saludos