[VB6]Controllare se un applicativo è aperto

[piter123]

salve, avrei bisogno all'interno del prg che stò ralizzando di verificare se un applicativo exe è in eseguzione oppure no,
qualcuno mi può aiutare con un esempio, grazie

[piter123]

scusate il linguaggio che utilizzo è VB6, grazie

[archimede]

http://vbnet.mvps.org/index.html?code/s ... cesses.htm

HTH.

Alessandro

[Dylan666]

http://www.vbforums.com/showthread.php?p=2748682
http://www.devx.com/vb2themax/Tip/18770

[piter123]

quello che cercavo era una cosa semplice come questa :

Se il programma calc.exe (calcolatrice) è aperto mi dice in esecuzione altrimenti NON in esecuzione

Codice: Seleziona tutto

Private Sub Command1_Click()
Dim procs As Object
Set procs = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name='calc.exe'")
If procs.Count = 1 Then
   MsgBox "Processo già in esecuzione"
   Else
   MsgBox "processo NON in escuzione"
End If
End Sub

[Dylan666]

Al mio primo link postano il codce che indichi tu, ma subito dopo nel indicano uno molto più performante.
La spiegazione del perché è qui:
http://www.vbaccelerator.com/home/Vb/Ti ... rticle.asp