比我高手的请来:怎样查找子类(50分)

有一个主窗体:form1,类名为Tform,如果我想查找出该窗口的所有类名及控件名及各控件
的值,应该怎样做:我知道有这么一个程序findwindowex(),但由于本人是新手,请各位高手
指教

for i := 0 to ComponentCount - 1 do
begin
Memo1.Lines.Add(Components.ClassName);
Memo2.Lines.Add(Componnets.Name);
end;

我说的窗口不是delphi生成的,是用findwindow()找到句柄后的窗口

var
h0, h1: HWnd;
s: array[0..1023] of Char;
begin
h0 := FindWindowEx('tform1', 'form1');
if h0 > 0 then
begin
h1 := GetWindow(h0, GW_CHILD);
while h1 > 0 do
begin
GetWindowText(h1, s, SizeOf(s));
ShowMessage(s);
GetClassName(h1, s, SizeOf(s));
ShowMessage(s);
h1 := GetNextWindow(h1, GW_HWNDNEXT);
end;
end;
end;

试试

真的能把我所指定窗口中的所有控件名称和子类都能截下来吗?

接受答案了.