Простейшая работа с чужим приложением...

[ActiveX]

В общем проблема такая. Есть сторонее приложение на форме которого находятся три компонента: Edit1.Text, Edit3.Text, Edit3.Text. В каждом из этих компонентов находится соответственно свой текст: Текст1, Текст2, Текст3. Текст заранее не известен - его и вообще там может не быть. В моем приложении также есть три компонента: Edit1.Text, Edit3.Text, Edit3.Text. Необходимо из стороннего приложения скопировать текст каждого из трех компонентов и вставить в соответствующие компоненты моего приложения. Пытался самостоятельно решить данную задачу - почти решил, единственная проблема заключается в том, что я смог скопировать только текст последнего по счету компонента стороннего приложения. Вот код:

Procedure GetText;
Var
parenthandle, handle : HWND;
text1, text3, text3 : PChar;
Begin
if FindWindow(Pchar('TMainForm'), 'Сторонее окно')<>0 then
Begin
parenthandle:=FindWindow(Pchar('TMainForm'), 'Сторонее окно');
handle:=FindWindowEx(parenthandle, 0, Pchar('TEdit'), nil);
GetMem(text1, 255*sizeof(char));
SendMessage(handle, WM_GETTEXT, 255, LongInt(pointer(text1)));
Edit1.text:=text1;
End;

В результате выполнения такого когда копируется текст всегда только самого последнего компонента стороннего окна(Edit3.Text).

Подскажите пожалуйста как сделать, чтобы не только из одного последнего компонента можно было текст копировать в свой компонент. Судя по всему проблема в нахождении handle компонентов стороннего приложения - но как их найти незнаю, т.к. текст который будет в компонентах содержаться заранее не известен - был бы известен - проблем бы не было с поиском, если только по классу искать, то удается таким образом только из последнего компонента скопировать текст(данный метод пригоден если на форме только один Edit). Заранее огромное спасибо.

[Stilet]

Судя по всему проблема в нахождении handle компонентов стороннего приложения - но как их найти незнаю, т.к. текст который будет в компонентах содержаться заранее не известен

Для таких случаев находить хендлы лучше через функции Enum(Child)Windows

Можно и FindWindowEx пользоваться тогда нужно его в цикле проходить и
во второй параметр там где у тебя 0 вставлять хендл найденного окна в предидущей итерации.