[Nyctos Kasignete]

Ну почему сразу не получается! >_<
У меня же получается. Я использую процедуру следующего вида:

Код:

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