App.Previnstance Equivalent

转载于 2008-07-09 17:44:00 发布 · 3.4k 阅读

文章标签：

#integer #application #string

有用的技术专栏收录该内容

15 篇文章

订阅专栏


        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