[VB.NET] Rilevare se l'applicazione è già in esecuzione

[dado86ssj]

Ciao a tutti, dovrei impedire all'utente finale di eseguire per sbaglio 2 volte l'applicazione, quindi dovrei rilevare all'avvio se esiste già in esecuzione un'altra istanza del mio programma.
Ho provato con Process ma non ho ottenuto nulla...

    Private Sub verifica_avvio()
        Dim i As Process
        For Each i In Process.GetProcesses
            If i.ProcessName = Application.ProductName Then
                MsgBox("È già in esecuzione un'altra copia dell'agenda!", MsgBoxStyle.Critical)
                End
            End If
        Next
    End Sub

Come posso fare??

[MItaly]

If Process.GetProcessesByName(Process.GetCurrentProcess().ProcessName).Length>0 Then MsgBox("È già in esecuzione un'altra copia dell'agenda!", MsgBoxStyle.Critical)

[dado86ssj]

Un attimo... cosi funziona pero mi rileva il processo stesso, quindi anche quando lo apro per la prima volta... :master:

[MItaly]

Giusto...

If Process.GetProcessesByName(Process.GetCurrentProcess().ProcessName).Length>1 Then MsgBox("È già in esecuzione un'altra copia dell'agenda!", MsgBoxStyle.Critical)

[dado86ssj]

Grazie, ora è a posto.
Scusa, ma perche si usa Length?? Ti restituisce quante volte viene trovato il processo??

[MItaly]

Process.GetProcessesByName restituisce un array di processi corrispondenti al nome passato come parametro; come per qualunque array, la proprietà Length restituisce il numero di elementi presenti nell'array.