Ну почему сразу не получается! >_<
У меня же получается. Я использую процедуру следующего вида:
Код:
procedure GetTxt(RichEditHandle: HWND);
var
WndTxt: PChar;
begin
GetMem(WndTxt, 4096);
try
SendMessage(RichEditHandle, WM_GETTEXT, 4096, Integer(WndTxt));
Form1.RichEdit1.Text := StrPas(WndTxt); { содержимое пишем в свой RichEdit на форме }
finally
FreeMem(WndTxt, 4096);
end;
end;
Если я передаю
корректный дескриптор окна чужого RichEdit'а, то всё прекрасно работает. Нужно только следить, чтобы память выделялась в достаточном количестве, чтобы вместить содержимое окна RichEdit'а.