VB 6 Rilevare un exe in esecuzione

[Brainjar]

Utilizza l'istruzione 'AppActivate'.

In un modulo dichiari l'handle dell'applicazione che vuoi lanciare :

    Public ReturnValue As Long

Per lanciare il blocco note :

Private Sub Command6_Click()
    ' Nota : Va bene per il lancio di quasi tutte le applicazioni
    ReturnValue = Shell("notepad.exe", 1)
End Sub

Per chiuderlo il blocco note :

Private Sub Command7_Click()
    On Error Resume Next      ' Se la chiudi senza averlo aperto 
    AppActivate ReturnValue   ' Lo attivi 
    SendKeys "%{F4}", True    ' Gli mandi Alt+F4 per chiuderla
End Sub

Dichiari ReturnValue come Public per avere l'handle visibile in
tutto il form.
Oltre la On Error ... ci sono altri metodi per evitare di eseguire
l' AppActivate su un'applicazione che non è aperta, ma questo è il
più veloce anche se è il meno elegante.

Ciao,