App.Previnstance Equivalent

 Dim appName As String = Process.GetCurrentProcess.ProcessName
 
        Dim sameProcessTotal As Integer = Process.GetProcessesByName(appName).Length
 
        If sameProcessTotal > 1 Then
 
            MessageBox.Show("A previous instance of this application is already open!", " App.PreInstance Detected!", _
                MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            Me.Close()
 
        End If
 
        appName = Nothing
        sameProcessTotal = Nothing

Current Page: : app_previnstance_equivalent vb_net : app_previnstance_equivalent Author: Jaruzel Modified: 02 July 2007 @ 17:13