Поиск Handle'a объекта типа "Edit" в окне стороннего приложения

[TRIZER]

Дано:
1) Вражеское окно
2) В нем два объекта типа "Edit"
3) Надпись на одном из них "000000", Надпись на втором не известна (может быть разной, длинна фиксированная - 7 символов)
4) Надпись на неизвестном Edit'e появляется через промежуток времени (от 1000мс до 5000мс)
Задача - считать текст с одного из Edit'ов (того, текст которого заранее не известен)
Пробовал так:

procedure TForm1.GetID;
var
h,h1:HWND; i:integer;
begin
h:=FindWindow(PChar(#32770),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
sleep(5000);
ID:=GetText(h1);
end;

(GetText-моя процедура, работает правильно - 100%)

Но текст считывается не с того Edit'a, который нужен.
Бьюсь головой об монитор вторые сутки, не знаю ... возможно есть API типа "FindNextWindowEx" ....
Буду благодарен любой помощи заранее спасибо.

[Stilet]

FindNextWindowEx

Ну вообще-то есть GetWindow с параметром GW_CHILD и после уже GW_HWNDNEXT
Но я рекомендую искать окна более надежно через EnumChildWindow и EnumWindow.
FindWindow(Ex) какая-то недоколыханная...

[TRIZER]

Спасибо огромное GetWindow помогло

[Пепел Феникса]

procedure TForm1.GetID;
var
h,h1:HWND; i:integer;
begin
h:=FindWindow(PChar(#32770),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
h1:=FindWindowEX(h,h1,PChar('Edit'),'');
sleep(5000);
ID:=GetText(h1);
end;

а еще можно так, коли он второй эдит.

[pepesina]

Сообщение от Пепел Феникса

procedure TForm1.GetID;
var
h,h1:HWND; i:integer;
begin
h:=FindWindow(PChar(#32770),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
h1:=FindWindowEX(h,h1,PChar('Edit'),'');
sleep(5000);
ID:=GetText(h1);
end;

а еще можно так, коли он второй эдит.

как мне сделать,что б считывалось два едита?помогите плиз

procedure TForm1.Button1Click(Sender: TObject);
var
 h:hwnd;
 s:array [0..255] of char;
begin
h:=findWindowex(FindWindow(nil,'TeamViewer'),0,'Edit',nil);
//Edit1.Text:= IntToStr(h);
Sendmessage(h,WM_GETTEXT,20,Integer(@s));
Edit1.Text:= String(s);
Showmessage(s);
end;

[pepesina]

Сообщение от TRIZER

Дано:
1) Вражеское окно
2) В нем два объекта типа "Edit"
3) Надпись на одном из них "000000", Надпись на втором не известна (может быть разной, длинна фиксированная - 7 символов)
4) Надпись на неизвестном Edit'e появляется через промежуток времени (от 1000мс до 5000мс)
Задача - считать текст с одного из Edit'ов (того, текст которого заранее не известен)
Пробовал так:

procedure TForm1.GetID;
var
h,h1:HWND; i:integer;
begin
h:=FindWindow(PChar(#32770),nil);
h1:=FindWindowEX(h,0,PChar('Edit'),'');
sleep(5000);
ID:=GetText(h1);
end;

(GetText-моя процедура, работает правильно - 100%)

Но текст считывается не с того Edit'a, который нужен.
Бьюсь головой об монитор вторые сутки, не знаю ... возможно есть API типа "FindNextWindowEx" ....
Буду благодарен любой помощи заранее спасибо.

Напишите, как вы это сделали?очень надо пожалуйста!

[pepesina]

посдкажите как правильно сделать?