Посыл текста edit2 чужой проге?

[Semechka]

Помогите кто может помочь.
Отсылаю текст в edit всё ок, отсылаю так

var
MyFormHandle, MyEditHandle: HWND;
begin
MyFormHandle := FindWindow(nil, 'Заголовок проги');
MyEditHandle := FindWindowEx(MyFormHandle,0,'edit',nil); 
SendMessage(MyEditHandle, WM_SETTEXT, WPARAM(225),lparam(pchar(edit1.text)));
end;

Получаю хэндл edit2, всё нормально пишу так

var
MyFormHandle, MyEditHandle: HWND;
begin
MyFormHandle := FindWindow(nil, 'Заголовок проги');
MyEditHandle := FindWindowEx(MyFormHandle,0,'edit',nil); 
SendMessage($7E38B3EC, WM_SETTEXT, WPARAM(225),lparam(pchar(edit1.text)));
end;

Тоже всё ок, но вот проблемма, каждый перезапуск программы у edit2 меняется хэнд, что делать? как сделать что то типо такого:

MyFormHandle, MyEditHandle: HWND;
begin
MyFormHandle := FindWindow(nil, 'Заголовок проги');
MyEditHandle := FindWindowEx(MyFormHandle,0,'edit',nil); 
SendMessage(MyEditHandle, WM_SETTEXT, WPARAM(225),lparam(pchar(edit1.text)));
end;

Но для edit2?

Тоже самое с

var
sss:string;
begin
 MyFormHandle := FindWindow(nil, 'Заголовок проги');
  MyEditHandle := FindWindowEx(MyFormHandle,0,'edit',nil); t
  SetLength(sss,SendMessage(MyEditHandle,WM_GETTEXTLENGTH,0,0)+1);
  SetLength(sss,SendMessage(MyEditHandle,WM_GETTEXT,Length(sss),LPARAM(sss)));

Только тут получать текст с edit, а нужно с edit2, хэндл тоже постоянно меняется.

[Semechka]

Но причём незабываем что в чужой программе нет EDIT2. там только edit, все edit называются edit и не как иначе.

[Semechka]

Профессионалы вы где?

[Semechka]

Тему close;
Решил проблемму, если кто столкнётся стучать в ICQ:118588. дам решения.

[Semechka]

ога, и тебе привет спам бот :-)