请问：如何枚举当前打开的窗口名称，指WINDOWS进程

zxj_76

我现在想用API函数枚举出当前WINDOWS里打开的窗口，然后把它们的标题列表出来！

efan2000

2. Option Explicit
3. Private Declare Function GetDesktopWindow Lib "user32" () As Long
4. Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
5. Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
6. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
7. Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
8. Private Const GW_HWNDNEXT = 2
9. Private Const GW_CHILD = 5
10. Private Sub Form_Load()
11.        '使用前在窗体上创建一个ListBox控件，名称为List1
12.        Dim hwnd As Long
13.        hwnd = GetDesktopWindow() '返回桌面的句柄
14.        hwnd = GetWindow(hwnd, GW_CHILD) '返回桌面的第一个子窗口
15.        Dim sWindowText As String
16.        Dim r As Long
17.        Do While hwnd <> 0
18.                If GetParent(hwnd) = 0 Then '顶层窗口
19.                        If IsWindowVisible(hwnd) Then '窗口状态是显示的
20.                                sWindowText = String(255, Chr(0))
21.                                r = GetWindowText(hwnd, sWindowText, 255) '返回窗口的标题
22.                                sWindowText = Left(sWindowText, r)
23.                                If sWindowText <> "" Then List1.AddItem sWindowText
24.                        End If
25.                End If
26.                hwnd = GetWindow(hwnd, GW_HWNDNEXT) '返回下一个窗口
27.        Loop
28. End Sub

Option Explicit Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Private Const GW_HWNDNEXT = 2 Private Const GW_CHILD = 5 Private Sub Form_Load()        '使用前在窗体上创建一个ListBox控件，名称为List1        Dim hwnd As Long        hwnd = GetDesktopWindow() '返回桌面的句柄        hwnd = GetWindow(hwnd, GW_CHILD) '返回桌面的第一个子窗口        Dim sWindowText As String        Dim r As Long        Do While hwnd <> 0                If GetParent(hwnd) = 0 Then '顶层窗口                        If IsWindowVisible(hwnd) Then '窗口状态是显示的                                sWindowText = String(255, Chr(0))                                r = GetWindowText(hwnd, sWindowText, 255) '返回窗口的标题                                sWindowText = Left(sWindowText, r)                                If sWindowText <> "" Then List1.AddItem sWindowText                        End If                End If                hwnd = GetWindow(hwnd, GW_HWNDNEXT) '返回下一个窗口        Loop End Sub

兰州人

efan2000发表于2004-7-16 20:02:00Option ExplicitPrivate Declare Function GetDesktopWindow Lib \"user32\" () As LongPrivate Declare Function GetWindow Lib \"user32\" (ByVal hwnd As Long, ByVal wCmd As Long) As Lon

efan2000
对API有比较深的了解