[Asinkrit]

Я же сказал, в FRes, вот переделал, что бы возвращала хендл.

Код:

function GetSubChild(wd: HWnd):HWnd;
Var 
  Cw:HWnd;
Begin
  Result:=0;
  If WD=0 then Exit;
  Cw := FindWindowEx(Wd, 0, nil, nil);
  while (Cw <> 0) do
    begin
       Result:=cw;
       GetSubChild(Cw);
       Cw := FindWindowEx(Wd, Cw, nil, nil);
     End;
end;