Ver Mensaje Individual
  #7  
Antiguo 22-11-2023
Arturo.Molina Arturo.Molina is offline
Miembro
 
Registrado: feb 2018
Posts: 28
Reputación: 0
Arturo.Molina Va por buen camino
Bueno, buceando por ahí, al final lo he conseguido...

Código Delphi [-]
procedure TfPrincipal.EnviarTexto(Texto: string);
var
    Window : THandle;
    i: integer;
begin
     if Texto <> '' then begin
       Window := FindWindow(NIL, PChar('Club Delphi - Brave') );

       //Comprobamos si está abierta la aplicación que recibirá los datos
       if Window = 0 then
         MessageDlg ('No se ha encontrado abierta la pagina "Club Delphi - Brave"', mtInformation, [mbok], 0)
       else
         for i := 1 to Length(Texto) do
           SendMessage(window, WM_CHAR, dword(Texto[i]), 0);
     end;
end;

Gracias a todos
Responder Con Cita