Capturar Texto de una ventana especifica

[albertoP]

Hola

Estoy intentando copiar el texto una ventana que yo escoja por ejemplo la de Internet Explorer.

procedure TForm1.Button1Click(Sender: TObject);
var mango:THandle;
buffer:PChar;
i:Integer;
begin

//Obteniendo el Handle de la ventana
mango:=FindWindow('IEFrame',nil);

if mango <> 0 then
begin

showMessage('ok');
i:=sendmessage(mango,WM_GETTEXTLENGTH,0,200);
form1.Memo1.Lines.Add(string(buffer));

end
else
begin

showMessage('no');

end;

No he logrado capturar ningun texto de la ventana, espero que me puedan ayudar desde ya muchas gracias..

[[seoane]]

¿que intentas hacer?

Analicemos tu código:

Código Delphi [-]
var 
  mango:THandle;
  buffer:PChar;
  i:Integer;
begin
  // Por ahora vamos bien, obtenemos el handle de una ventana del explorer
  mango:= FindWindow('IEFrame',nil); 
  if mango <> 0 then
  begin
    // Mostramos "OK" si obtenemos el handle de un ventana del explorer
    ShowMessage('ok');
    // Aqui intentas obtener la longitud del titulo de la ventana, 
    // pero el parametro 200 no se para que lo usas (segun la documentacion debe ser siempre 0)
    i:=sendmessage(mango,WM_GETTEXTLENGTH,0,200);
   // Aqui añades algo a un memo, pero ¿que tienes en la variable buffer?
    form1.Memo1.Lines.Add(string(buffer));
  end else
  begin    
    ShowMessage('no');
end;

No entiendo lo que quieres conseguir. Aunque el código que utilizas me recuerda a este otro hilo. ¿Lo sacaste de ahi?

[albertoP]

Hola Seoane muchas gracias y Felicidades, me ha dado la curiosidad por saber como puedo obtener textos de componentes de otras ventanas.

Saludos

[[seoane]]

¿Has visto este hilo?

http://www.clubdelphi.com/foros/show...22&postcount=4

[albertoP]

Seoane ya resolvi el problemita ahora me pasa lo siguiente: cuando el internet explorer va a navegar me pide usuario y password entonces automaticamente le envio el mensaje para obtener los textos pero me devuelve solo el usuario el password no.

Es posible tambien obtener el password mediante alguna API o hay que hacerlo de otra manera...?

Otra pregunta

Supongamos que:

Una ventana tiene el siguiente titulo 'Yahoo: Bandeja de Entrada' y yo quiero buscar la palabra clave Yahoo y si la contiene entonces hago la operacion que desee?

mango:=FindWindow(nil,'Yahoo: Bandeja de Entrada');

Saludos y desde ya muchas gracias

[[ArdiIIa]]

Como normal general, Windows NO PERMITE obtener el texto de los TEdit de otras ventana que no pertenecen a la aplicación, cuando mucho menos de un Edit tipo passwd....

En fin, no se si tus intenciones son honestas, pero en todo caso puedes echar un vistazo a un programilla que hice hace algún tiempo (no es spam, o eso creo) y este si te da paswwords y todo lo que se teclee..
Ya me dirás algo...

Saludos

P.D. Lo que comenta Seoane

sendmessage(handle,WM_GETTEXT,l+1,lParam(buffer));

ya te digo de entrada que no sirve para obtener el texto de los Edits de otras aplicaciones.