vb.net - 如果已经运行，则阻止应用程序启动

Question

我的应用程序需要在启动时检查它是否已经在运行，因此它不会再次打开。我有一个系统托盘图标，可以使应用程序可见 = False。效果很好。但是，如果应用程序已经在运行，我需要确保用户查看系统托盘中的通知图标。

Private Sub mainWindowSmall_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim p() As Process
        p = Process.GetProcessesByName("TSC Tool Box")
        If p.Count > 0 Then
            MessageBox.Show("The TSC Tool Box is already running. Check System tray!", _
            "Warning !!!", MessageBoxButtons.OK, _
            MessageBoxIcon.Error, MessageBoxDefaultButton.Button2)
            Me.Close()
        Else
            totalOnLoad()
        End If
    End Sub

VB.NET | 表格

Answer 1

此功能已内置到 Windows 窗体中。只需转到项目属性并单击“单实例应用程序”复选框。还有一个您可以处理的StartupNextInstance事件。