' Prüft, ob eine EXE-Datei bereits ausgeführt wird
' und gibt im Erfolgsfall entweder das Fensterhandle
' oder die Process-ID zurück
Public Function IsEXERunning(ByVal sFilename As String, _
  Optional ByVal iReturn As procReturnValue = ProcessID) As Long
 
  Dim nResult As Long
 
  ' Je nach System...
 
    ' bei allen anderen Systemen...
    Dim lSnapshot As Long
    Dim uProcess As PROCESSENTRY32
 
    ' "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), sFilename) > 0 Then
 
          ' Jepp - EXE gefunden
          If iReturn = Handle Then
            IsEXERunning = ProcID2hWnd(uProcess.th32ProcessID)
          Else
            IsEXERunning = uProcess.th32ProcessID
          End If
 
        End If
 
        ' nächster Prozess
        nResult = ProcessNext(lSnapshot, uProcess)
      Loop
 
      ' Handle schliessen
      CloseHandle lSnapshot
    End If
 
End Function