|
ACTUALIZO solucionado
************
Bueno pues parece que el getwindowtext no funciona, hay que hacer otro metodo:
var
buffer:string;
i:integer;
ventana:hwnd; // valor que tenemos del anterior ejemplo
begin
i:=sendmessage(ventana,WM_GETTEXTLENGTH,0,0); // obtengo la longitud del titulo de ventana
setlength(buffer,i); // la defino
i:=sendmessage(ventana,wm_gettext,i+1,Lparam(pchar(buffer))); // obtengo el titulo en buffer
setlength(buffer,i); // otra vez defino
showmessage(buffer); // muestro texto
end;
Gracias a todos los que me han leido.
saludos.
|