假如只知道一个窗体的handle（而不知到该窗体下有些有什元件），有什么API可得到这个窗体下所有的元体及其类型和名称？

Hi, 可以利用 EnumChildWindows 來進行取得所有的 childwindow, 再配合 GetClassName 來取得其 classname, 以下為大約的寫法.    在 var 段加入 callback function: function myEnumChildBack( h: HWND; v: integer ): Boolean; stdcall;    另外的程式如下:

function myEnumChildBack(h: HWND; v: integer): Boolean; stdcall; //callback function implementation
var
  cname: array[0..255] of char;
begin
  GetClassName(h, cname, 256);  // 由 handle 取得其 classname
  Form1.memo1.Lines.Add(inttostr(h) ＋ '  ' ＋ cname );
  result := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  a: HWND;
begin
  a := FindWindow(nil, 'my');  // 先找出你要找的 handle 或直接指定皆可
  if a <> 0 then
    EnumChildWindows(a, @myEnumChildBack, 0); // 開始找出所有該 windows 下的 childwindow
end;    

我可能没说清楚，那个窗体是一个MDI子窗。我只知道这个子窗的handle，想知道这个子窗内到底有些什么元件。你的代码我试了，没反应。 發表人 - KFC 於 2003/04/07 01:11:59