[VB6] Verificare se un processo è già in esecuzione

[oregon]

Con questo codice

Private Sub Form_Click()
    Print IsRunning("Calc.exe")
End Sub

Private Function IsRunning(ByVal proc As String) As Boolean
    Dim oProcs As Object
    Set oProcs = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & proc & "'")
    IsRunning = (oProcs.Count > 0)
    Set oProcs = Nothing
End Function

puoi controllare se un processo e' attivo (nell'esempio, la calcolatrice di windows).

Lo puoi adattare per le tue esigenze