VB 6 Rilevare un exe in esecuzione

[oynik]

Come posso fare a rilevare se un eseguibile e' gia'avviato?

[Giulio C.]

Ciao.
Se intendi una stessa istanza del tuo programma VB puoi intercettarla così:

If App.PrevInstance = True Then  ' Istanza già aperta
   Msgbox "Attenzione! Procedura già aperta."
   End
End If

[oynik]

Ciao Grazi per la risposta fulminea
Io cmq devo lanciare con un mia appl. un exe preesistente e controllare quando questo e' lanciato perche' appena viene chiuso lo devo cancellare
es. lancio il notepad di windows e non appena viene chiuso devo cancellare il notepad.exe

[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,