Recibir texto de un control externo?

[Reasen]

Por ejemplo si tengo 2 aplicaciones diferentes de delphi iniciadas como consigo el texto de un TEdit del otro proceso? Intente algo como esto pero sin suerte:

var
winn:HWND;
winn2:HWND;
HoldString: PChar;
HoldString__: String;
begin
winn:= FindWindow('','Aplicacion');
winn2:=FindWindowEx(winn,0,'Edit',''); // recibimos el handle del control
SendMessage(winn2,WM_GETTEXT,200,lparam(HoldString));
HoldString__ := HoldString__ + ' ' + String(HoldString);
ShowMessage( HoldString__);
end;


Cualquier ayuda o consejo me sirven, saludos!

[Reasen]

Me auto-respondo, Lo solucioné de esta manera:

function GetText(XHand : THandle):string;
var textlength:integer;
text:PChar;
begin
textlength:=SendMessage(XHand,WM_GETTEXTLENGTH,0,0);
if textlength=0 then Result:='Empty' else
begin
getmem(text,textlength+1);
SendMessage(XHand,WM_GETTEXT,textlength+1,Integer(text));
Result:=text;
freemem(text);
end;
end;

[Osorio]

Tambien puedes ver algo de callback. Tal vez te puede ser util en mayor o menor medida para tu necesidad puntual.

Saludos.