How to get a list of all windows

[slr]

I am trying to get the name of a particular window but the title can change at the end like
CNI EDITORIAL - Daily vs CNI EDITORIAL - SUNDAY
So I was trying to get a list of all the windows so that I could compare the first part of the string??

THank Scott

[Shawn N]

Use the class name instead of window title.

[Crunchy Cat]

or... EnumWindows () in user32.dll.

[phrozeman]

Private Sub Form_Load()
       EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub
 
'module code
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
    If Not sSave = "" Then Form1.List1.AddItem sSave
        EnumWindowsProc = True
End Function