VB 避免程式二次運行

Private Sub Form_Load()
If App.PrevInstance Then
    MsgBox "程式已在運行。", vbInformation, "系統"
    End
End If
End Sub

以上這種方法，是只針對於同目錄同名的程式，下面還有一種方法是通過API函數實現的，不論程式怎麼改名都不可以多開的。

 

Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long 
Private Type SECURITY_ATTRIBUTES 
        nLength As Long 
        lpSecurityDescriptor As Long 
        bInheritHandle As Long 
End Type 

Private Const ERROR_ALREADY_EXISTS = 183& 

Private Sub Form_Load() 
    Dim sa As SECURITY_ATTRIBUTES 
    sa.bInheritHandle = 1 
    sa.lpSecurityDescriptor = 0 
    sa.nLength = Len(sa) 
    Call CreateMutex(sa, 1, App.Title) 
    If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then 
        MsgBox "程式已在運行。", vbInformation, "系統"
        End
    End If 
End Sub