如何枚举当前系统上正在运行的所有窗口的caption和hwnd

Question

如何枚举当前系统上正在运行的所有窗口的caption和hwnd
我用过enumwindows和GetDesktopWindow都没有获取到,请高手指教.

Answer 1

试试：
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As LongPrivate Sub Command1_Click()
    Dim FindHwnd As Long
    Dim i As Integer
    Dim s
    For i = 0 To Forms.Count - 1
        s = Forms(i).Caption
        FindHwnd = FindWindow(vbNullString, s)
        Debug.Print s
        Debug.Print FindHwnd
   Next i
End Sub

Answer 2

你给的代码只能显示出有form1,其他窗口枚举不出来