Zitat:

Das Problem fängt aber schon damit an, dass ich kein ListView-Steuerelement in meinem Werkzeugkasten finden kann.

Private Sub Form_Load()
 
  If is_running("Name_der_Exe.exe") = False Then
    MsgBox "Läuft nicht"
    Unload Me
    Exit Sub
  Else
    MsgBox "Läuft"
  End If
 
End Sub
 
Private Function is_running(ExeName As String) As Boolean
 
  Dim hSnapShot As Long, Result As Long
  Dim aa As String, bb As String
  Dim Process As PROCESSENTRY32
 
  hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
  If hSnapShot = 0 Then Exit Function
 
  Process.dwSize = Len(Process)
  Result = ProcessFirst(hSnapShot, Process)
  is_running = False
  Do While Result <> 0
    aa = Process.szExeFile
    aa = Left$(aa, InStr(aa, Chr$(0)) - 1)
    'List1.AddItem aa
    If LCase$(aa) = LCase$(ExeName) Then
      is_running = True
      Exit Do
    End If
    Result = ProcessNext(hSnapShot, Process)
  Loop
  Call CloseHandle(hSnapShot)
 
End Function

Gruss,

Zardoz

Beitrag wurde zuletzt am 14.08.11 um 19:20:56 editiert.