Hola a todos,
creo que no me he explicado lo suficientemente claro.
Solamente necesito saber como enviar un texto a una ventana del navegador (en este caso concreto es el navegador, pero podría ser, por ejemplo, una ventana de Word).
He revisado la función SendMessage tal y como me comenta
Neftali pero debo estar espeso porque no consigo que llegue el texto...
Aquí el código que utilizo:
Código Delphi
[-]
procedure TfPrincipal.EnviarTexto(Texto: string);
const
WM_TEXTMSG = WM_USER + 103;
var
Window : THandle;
begin
if Texto <> '' then begin
Window := FindWindow(NIL, PChar('Club Delphi - Brave') );
if Window = 0 then
MessageDlg ('No se ha encontrado abierta la pagina "Club Delphi - Brave"', mtInformation, [mbok], 0)
else begin
SendMessage( Window, WM_TEXTMSG, 0, UnicodeString( Texto ) );
end;
end;
end;
Y esta es la respuesta al intentar ejecutarlo:
Error: Incompatible type for arg no. 4: Got "UnicodeString", expected "Int64"
La idea es, en una ventana abierta y con el foco en un campo de texto, que mi programa escriba en el.
En el ejemplo que pongo, el cursor YA se encuentra en el campo
usuario de la web del Club Delphi y yo debo enviarle una cadena (en este caso, una dirección de correo electrónico, tal como "correo@electronico.com"), cambiar al campo
pass y enviarle otra cadena.