EnumChildWindows 枚举子窗体句柄

EnumChildWindows(父窗体句柄，@EnumChildWndProc //回调函数，0 //这个通常为零，不管它，实现自己想要的就算了，以后再研究)

 

回调函数书写格式：

 

function EnumChildWndProc(AhWnd:LongInt;AlParam:lParam):boolean;stdcall;
   var
      WndClassName: array[0..254] of Char; //保存窗口所属类
      WndCaption: array[0..254] of Char; //保存窗口标题
      Msg:AnsiString; //保存欲显示给用户的结果
begin

result:=true;//继续枚举，直到最后一个子窗口被枚举;

result:=false;//相反；

GetClassName(AhWnd,wndClassName,254); //获取子窗口类名
GetWindowText(AhWnd,WndCaption,254); //获取子窗口标题

//获取类名或标题就可以用if句柄判断；

if wndClassName = '类名' then

begin

 Showmessage('类名');//测试；

end;
end;