使用互斥锁进行单实例检查

Question

我正在尝试使用互斥锁实现单实例应用程序。 应用程序只能从给定目录运行一个实例。 我试图在 Applicationsevents 类中实现它，但它不起作用。

我用一个单一表格的测试工具复制了它。 我的 ApplicationEvents.vb 代码：

   Private Sub SingleInstanceCheck(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup

        Dim strLoc As String = Assembly.GetExecutingAssembly().Location
        Dim fileInfo As IO.FileSystemInfo = New IO.FileInfo(strLoc)
        Dim sExeName As String = fileInfo.Name

        strLoc = strLoc.Replace("\", "//")

        Using mutex As New Threading.Mutex(False, "Global\" + strLoc)
            If Not mutex.WaitOne(0, False) Then
                File.WriteAllText("c:\log.txt", "instance already running")
                Environment.Exit(1)
            End If

            GC.Collect()


        End Using

    End Sub

它运行多个实例。

我无法改变的事情： 1.项目设置有“启用应用程序框架”打勾 2. ApplicationEvents.vb 处理 UnhandleException 这意味着我不能有一个模块作为启动。

请帮帮忙！！！

Answer 1

如果你use:

Dim newInstance as boolean
myMutex = New Threading.Mutex(True, "Global\" + strLoc, newInstance)

您可以检查“newInstance”的值，如果它创建了一个新实例，则没有以前的实例，否则如果它没有创建一个新实例，那么您的应用程序的另一个实例创建了，所以您可以退出.. .

您还需要在应用程序的整个生命周期中保留互斥锁：您的互斥锁只会在您的 using 语句的范围内保留，然后它会被释放。您必须将其存储在某个地方。