Текст из RichView чужой программы

[W0LF]

Есть программа, в ней TRichView который со временем обновляеться, как получить из него текст ? (или ссылки если можно)

[russian-stalker]

findwindow, GetWindowText
Ищите информацию по этим функциям.
Как пример:

procedure TForm1.Button1Click(Sender: TObject);
var
 h:HWND;
 s:PChar;
begin
 h:=FindWindow('TForm1','Form1');
 if h=0 then
  ShowMessage('Окно не найдено');
 h:=FindWindowEx(h,0,'TRichEdit',nil);
 if h=0 then
  ShowMessage('Текстовое поле не найдено');
 GetMem(s,GetWindowTextLength(h));
 GetWindowText(h,s,GetWindowTextLength(h));
 ShowMessage(s);
end;

[W0LF]

Мне не нужен текст из TRichEdit, из него могу взять текст, мне нужен именно TRichView. handle его нахожу, но при получениее текста с него получаю просто пустое поле...

[Kotofff]

Покажи свой код.
Будем думать.

[W0LF]

Вот нашел:

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
 Rich:HWND;
begin	
 Rich:=FindWindow('TRichView',nil);
 if Rich=0 then
  ShowMessage('Окно не найдено');
 if Rich<>0 then begin
  ShowMessage('Текстовое поле найдено');

        SendMessage(Rich, EM_SETSEL, WPARAM(0), LPARAM(-1));
        SendMessage(Rich, WM_COPY, 0, 0);
        Memo1.Text:=Clipboard.asText;
 end;
end;

работает, но ужасно долго, просто ужасно... Есть ли какой-то способ по-быстрее?!