Процедура получения списка всех программ и окон

Private Function GetWindowDesc$(hwnd&)
    Dim desc$
    Dim tbuf$
    Dim inst&   ' Now a long
    Dim dl&
    Dim hWndProcess&
 
    ' Include the windows handle first
    desc$ = '&H' + Hex$(hwnd) + Chr$(9)
 
    ' Get name of source app
    tbuf$ = String$(256, 0) ' Predefine string length
    'Получаем Ид процесса
    dl& = GetWindowThreadProcessId(hwnd&, hWndProcess)
    'Получаем Ид программы запустившей процесс
    inst& = GetWindowLong(hwnd&, GWL_HINSTANCE)
    'Получаем имя файла программы
    dl& = GetModuleFileName(inst&, tbuf$, 255)
    If InStr(tbuf$, Chr$(0)) Then tbuf$ = Left$(tbuf$, InStr(tbuf$, Chr$(0)) - 1)
    desc$ = desc$ + tbuf$ + Chr$(9) + Chr$(9)
    'Получаем заголовок окна
    tbuf$ = String$(256, 0) ' Initialize space again
    dl& = GetWindowText(hwnd&, tbuf$, 255)
    If InStr(tbuf$, Chr$(0)) Then tbuf$ = Left$(tbuf$, InStr(tbuf$, Chr$(0)) - 1)
 
    ' And return the description
    GetWindowDesc$ = desc$
 
End Function
 
Private Sub FillList()
Dim hwnd&
 
    WinList.Clear
    'Получаем hwnd рабочего стола
    hwnd& = GetDesktopWindow()
    
    'Открываем чтение списка окон рабочего стола
    hwnd& = GetWindow(hwnd&, GW_CHILD)
    
    'Читаем список окон
    Do
        WinList.AddItem GetWindowDesc$(hwnd&)
        hwnd& = GetWindow(hwnd&, GW_HWNDNEXT)
    Loop While hwnd& <> 0
End Sub