如何实现程序互斥运行

为了避免你的程序被多次执行而弹出多个窗口及创建多个进程， 以下代码可以加到程序中实现互斥运行。

 

Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long

 

'***********  以下代码实验程序互斥运行 *************************

ChkHc = CreateMutex(ByVal 0, 1, "你的程序名字")

If Err.LastDllError = 183 Then
ReleaseMutex Ret
CloseHandle Ret
End
End If