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

[pieromont]

Ciao,
dovrei inserire un controllo per verificare se un processo è già in esecuzione, come faccio?...mi spiego meglio.
Ho il seguente codice:

Private Sub cmdImport_Click()
Dim r

If Dir$(UCase$("C:\WINNT\system32\prog.exe")) <> "" Then
r = Shell("C:\WINNT\system32\prog.exe", 1)
Else
MsgBox "Operazione non risucita ", vbExclamation
End If

End Sub

...vorrei controllare se prog.exe è già in esecuzione e nel caso fosse in esecuzione non farlo eseguire nuovamente.
Grazie e ciao.

[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

[pieromont]

Io l'ho provato su Windows2000 SP4 e funziona, mi sai anche dire se hai provato con Win98, WinMe, WinXp?
Ciao

[oregon]

Il codice utilizza le librerie WMI (che sono gia' presenti su XP).

Per Win98 (e forse anche per Me) devi scaricare le librerie WMI da Microsoft ed installarle.