API определение дочернего окна

[senia]

Пишу для MUonline кликер, столкнулся с такой проблемой, окно определяется а вот дочернее окно никак. Не хочет тыкать мышка.

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

как пытались определить то?
и какое именно окно надо?

[senia]

procedure TForm1.Button1Click(Sender: TObject);
var
H: HWND;
He: HWND;
Pt:TPoint;

begin

pt.x:=200;
pt.y:=200;
H:= findwindow (nil,'MU');
He:= FindWindowEx (H,0,'Edit',nil);

postmessage(He,WM_LBUTTONDOWN,0,(pt .x shl 16)+ pt.y);
postmessage(He,WM_LBUTTONUP,0,(pt.x shl 16)+ pt.y);

end;
end;

Нужно чтоб в приложении мышкой можно было везде ткнуть.

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

He:= FindWindowEx (H,0,'Edit',nil);

этим вы находите лишь первый дочерний Эдита

[psycho-coder]

Мне кажется тут нужно через EnumWindows. Вот только я не понял как с ним работать в Delphi(.

[senia]

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

He:= FindWindowEx (H,0,'Edit',nil);

этим вы находите лишь первый дочерний Эдита

если я правильно понял, все дочернии окна приложения имеют клас Edit, как перебрать их?

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

начнем с того что EnumChildWindows

Edits:array of HWND;

function EnumEdits(H:HWND;i:integer):BOOL;stdcall;
var s:string;
begin
 Result:=true;
 setLength(s,256)
 GetClassName(H,PChar(s),255);
 SetLength(s,lStrLen(PChar(s)));
 if ANSIApperCase(s)<>'EDIT' then exit;
 SetLength(Edits,Length(Edits)+1);
 Edits[Length(Edits)]-1:=H;
end;


//это в обработчик кнопки пишем
 SetLength(Edits,0);
 EnumChildWindows(findwindow(nil,'MU'),{может @ надо}EnumEdits,0);
//итог в массиве Edits у нас все EDIT контролы родителями котрого явлется окно MU