EnumWindows请教！
它带的两个参数我不太明白，尤其是第一个
请高手指点，并给个容易看懂的例子！
一定给分！
问题点数：0、回复次数：5Top
1 楼hisofty（瘦马）回复于 2003-11-03 14:20:01 得分 0
看看msdn不就行了，有详细的说明Top
2 楼internet0532（小小）回复于 2003-11-03 18:21:38 得分 0
有VB的？？？
我菜Top
3 楼internet0532（小小）回复于 2003-11-04 13:39:39 得分 0
我是说，有VB和API的例子的？Top
4 楼danpianji2002（小单）回复于 2003-11-05 12:56:25 得分 0
下面是从一个浏览器上复制下来的
你参考一下吧
【说明】
枚举窗口列表中的所有父窗口（顶级和被所有窗口）
【返回值】
Long，非零表示成功，零表示失败
【其它】
我的理解——在随vb5同时提供的api32.txt文件中，找不到这个函数
【参数表】
lpEnumFunc ----- Long，指向为每个子窗口都调用的一个函数的指针。用AddressOf运算符获得函数在标准模式下的地址
lParam --------- Long，在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的
'Example Name:EnumWindows
'Add this code to a form
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the form's graphics mode to persistent
Me.AutoRedraw = True
'call the Enumwindows-function
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub
'Add this code to a module
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
Form1.Print Str$(hwnd) + " " + sSave
'continue enumeration
EnumWindowsProc = True
End Function
浏览器主页www.pfans.net
我感觉这个很好的
Top
5 楼Gelim（Gelim）回复于 2003-11-05 12:59:06 得分 0
EnumWindows
VB声明
Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
说明
枚举窗口列表中的所有父窗口（顶级和被所有窗口）
返回值
Long，非零表示成功，零表示失败
参数表
参数 类型及说明
lpEnumFunc Long，指向为每个子窗口都调用的一个函数的指针。用AddressOf运算符获得函数在标准模式下的地址
lParam Long，在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的
注解
我的理解——在随vb5同时提供的api32.txt文件中，找不到这个函数
Top
