Option Compare Database
Option Explicit
Private Const GW_HWNDFIRST = 0
Private Const GW_OWNER = 4
Private Const GW_HWNDNEXT = 2
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_NORMAL = 1
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Function FensterSuchen(FensterTitel As String, Optional retValue)
Dim hWnd, strTitel As String, Longe As Long, Ret As Long
hWnd = GetActiveWindow()
If hWnd Then
Do While hWnd
strTitel = String$(255, 0)
Longe = Len(strTitel)
Ret = GetWindowText(hWnd, strTitel, Longe)
strTitel = Left$(strTitel, InStr(strTitel, Chr$(0)) - 1)
If IsWindowVisible(hWnd) And GetWindow(hWnd, GW_OWNER) = 0 Then
If strTitel Like FensterTitel Then
If IsMissing(retValue) Then
FensterSuchen = strTitel
Else
FensterSuchen = hWnd
End If
Exit Function
End If
End If
hWnd = GetWindow(hWnd, GW_HWNDNEXT)
Loop
End If
If IsMissing(retValue) Then
FensterSuchen = ""
Else
FensterSuchen = 0
End If
End Function
Function TaskListen()
Dim hWnd, strTitel As String, Ret As Long, Longe As Long
Dim Tmp As String
hWnd = GetActiveWindow()
If hWnd Then
Do While hWnd
strTitel = String$(255, 0)
Longe = Len(strTitel)
Ret = GetWindowText(hWnd, strTitel, Longe)
strTitel = Left$(strTitel, InStr(strTitel, Chr$(0)) - 1)
If Is