如何获得具有相同类名的不同控件的句柄？

Question

我正在尝试使用delphi编程访问第三方应用程序的"文本框",所以我需要使用FindWindowEx(...)函数找到每个"文本框"的句柄.

问题是,因为所有文本框都有相同的类名,"NO window name",这个函数可以给我第一个TextBOx句柄!

如何在没有名字的情况下获取其余的文本框句柄？

提前致谢.

Answer 1

您可以使用EnumChildWindows枚举第三方应用程序窗口的所有子窗口并测试每个枚举窗口的类名称,以查看它是否是"文本框"类.例:

function EnumChildren(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
const
  TextBoxClass = 'EDIT'; (?)
var
  ClassName: array[0..259] of Char;
begin
  Result := True;
  GetClassName(hwnd, ClassName, Length(ClassName));
  if ClassName = TextBoxClass then
    TStrings(lParam).Add(IntToHex(hwnd, 8));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  EnumChildWindows(OtherAppWnd, @EnumChildren, UINT_PTR(Memo1.Lines));
end;