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