TKSoft-Online

 
Private Function GetWindowList(Optional bVisible As Boolean = True)
 
  ' oLSV     - Ein beliebiges ListView, das die
  '            Informationen aufnehmen soll
  ' bVisible - Wenn True werden nur sichtbare Windows
  '             angezeigt, ansonsten alles
 
  Dim hwnd      As Long
  Dim sTitle    As String
  Dim lTaskID   As Long
  Dim lStyle    As Long
 
  Me.lst_Handle.RowSource = ""
  Me.lst_Handle.Requery
  ' Erstes WindowHandle holen
  hwnd = GetWindow(Application.hWndAccessApp, GW_HWNDFIRST)
  Do
    ' Handle auswerten und im ListView eintragen
    lStyle = GetWindowLong(hwnd, GWL_STYLE)
    lStyle = lStyle And (WS_VISIBLE Or WS_BORDER)
    sTitle = GetWindowTitle(hwnd)
    lTaskID = GetWindowTaskID(hwnd)
   
    If (lStyle = (WS_VISIBLE Or WS_BORDER)) = bVisible Then
        Me.lst_Handle.AddItem hwnd & ";" & lTaskID & ";" & lStyle & ";" & sTitle
    End If
   
    ' Nächses Handle
    hwnd = GetWindow(hwnd, GW_HWNDNEXT)
  Loop Until hwnd = 0
End Function

 Das Beenden von Explorer- und IE-Fenster geht nicht.