//枚举
Function EnumChildWindowProc(Handle:HWND; UserDate
WORD):BOOL; stdcall;
var WinName:Array[0..256] of char;
WinClassName:Array[0..256] of char;
begin
ResUlt := FALSE;
if Handle <> 0 then
begin
GetWindowText(Handle,WinName,sizeof(WinName));
GetClassName(Handle,WinClassName,sizeof(WinClassName));
Form1.Memo1.Lines.Add(Format('Handle: %08X - WinName: %s - WinClassName: %s',[Handle,WinName,WinClassName]));
ResUlt := TRUE;
end;
end;
begin
EnumChildWindows(Handle,@EnumChildWindowProc,0);
end;