' Prüft, ob eine EXE-Datei bereits ausgeführt wird
' und gibt im Erfolgsfall entweder das Fensterhandle
' oder die Process-ID zurück
Private Function IsEXERunning(ByVal sFilename As String, _
  Optional ByVal iReturn As procReturnValue = ProcessID) As Long
 
  Dim lSnapshot As Long
  Dim uProcess As PROCESSENTRY32
  Dim nResult As Long
 
  ' "Snapshot" des aktuellen Prozess ermitteln
  lSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
  If lSnapshot <> 0 Then
    uProcess.dwSize = Len(uProcess)
 
    ' Ersten Prozess ermitteln
    nResult = ProcessFirst(lSnapshot, uProcess)
 
    Do Until nResult = 0
      ' Prozessliste durchlaufen
      If InStr(LCase$(uProcess.szexeFile), LCase$(sFilename)) > 0 Then
        ' Jepp - EXE gefunden
        If iReturn = Handle Then
          IsEXERunning = ProcID2hWnd(uProcess.th32ProcessID)
        Else
          IsEXERunning = uProcess.th32ProcessID
        End If
        Exit Do
      End If
 
      ' nächster Prozess
      nResult = ProcessNext(lSnapshot, uProcess)
    Loop
 
    ' Handle schliessen
    CloseHandle lSnapshot
  End If
End Function