Determine all open windows

[ycsim]

How do i retrieve the handles of all open windows??? Code samples appreciated.

------------------
YC Sim
Teenage Programmer
UIN 37903254

[Aaron Young]

Try something like this:

In a Module..

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public sWnds() As String

Public Function EnumProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sString As String * 255
    Call GetWindowText(hwnd, ByVal sString, 255)
    If Left(sString, 1) <> Chr(0) Then
        sWnds(UBound(sWnds)) = Left(sString, InStr(sString, Chr(0)) - 1)
        ReDim Preserve sWnds(UBound(sWnds) + 1)
    End If
    EnumProc = hwnd
End Function

In the Form, with a Listbox and Command Button..

Private Sub Command1_Click()
    Dim iWnd As Integer
    ReDim sWnds(0)
    Call EnumWindows(AddressOf EnumProc, 0&)
    List1.Clear
    For iWnd = 0 To UBound(sWnds) - 1
        List1.AddItem sWnds(iWnd)
    Next
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]