如何限定此程式只可以開一次

0720

請問各位

要如何更改，把這個做出的程式
限定只能開啟一次，無法多開

(現在點幾次，就可以開幾個)

boindary

判斷程序吧??

0720

boindary 發表於 2018-6-11 19:07
判斷程序吧??

有語法嗎～

qwe032747

0720 發表於 2018-6-15 09:43
有語法嗎～

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 "請勿重復運行", , ""
        End
    End If
End Sub


VB6防多開的寫法