EnumWindows 遍历窗口

枚举所有顶级窗口，并调用指定函数 lpEnumFunc，参数为窗口句柄和 lParam。当调用的函数返回 False 时停止枚举。

Function EnumWindows (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

参数	意义
lpEnumFunc	函数地址
lParam
返回值	非零表示成功

EnumChildWindows 遍历子窗口

Function EnumChildWindows(ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

参数	意义
hWndParent	父窗口句柄
lpEnumFunc	回调函数入口
lParam	回调参数之一

lpEnumFunc 函数

VB	Function EnumProc(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean
Delphi	Function EnumProc(app_hwnd :Integer; lParam :Integer):Boolean; Stdcall;

参数	意义
app_hwnd	窗口句柄
lParam	同 EnumWindows 参数 lParam
返回值	为 False 时，停止余下窗口，并且 EnumWindow 返回 0