If InStr(LCase$(uProcess.szexeFile), sFilename) > 0 Then
  <font color=green>' Jepp - EXE gefunden, jetzt ProcessID zurückgeben</font>
  IsEXERunning = uProcess.th32ProcessID
End If

Private Declare Function GetWindowThreadProcessId Lib _
  "user32" (ByVal hwnd As Long, lpdwProcessId As Long) _
  As Long
 
Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Private Declare Function GetWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 
Private Declare Function GetParent Lib "user32" _
  (ByVal hwnd As Long) As Long
 
Private Const GW_HWNDNEXT = 2

<font color=green>' Ermittelt das Fensterhandle anhand einer Prozess-ID</font>
Private Function ProcID2hWnd(ByVal ProcID As Long) As Long
  <font color=green>' alle Fenster durchlaufen und nach Process-ID suchen</font>
  Dim lngHWnd As Long
  Dim lngProcTaskID As Long
 
  lngHWnd = FindWindow(vbNullString, vbNullString)
  Do While lngHWnd <> 0
 
    <font color=green>' Existiert kein Eltern-Fenster, dann ProcssID
    ' ermitteln und mit TaskID vergleichen</font>
    If GetParent(lngHWnd) = 0 Then
      GetWindowThreadProcessId lngHWnd, lngProcTaskID
 
      <font color=green>' Handelt es sich um die gesuchte TaskID?</font>
      If lngProcTaskID = ProcID Then
        <font color=green>' Fenster-Handle zurückgeben und Schleife
        ' verlassen!</font>
        ProcID2hWnd = lngHWnd
        Exit Do
      End If
 
    End If
 
    <font color=green>' Nächstes Fenster</font>
    lngHWnd = GetWindow(lngHWnd, GW_HWNDNEXT)
  Loop
End Function