禁止程序多开

andymark

ACCESS本身也不允许程序打开多次,  但如果把程序复制到其他目录,  就可以程序多开了
有什么方法禁止上述的行为呢  ,  方法有好几种,  这里介绍CreateMutex 建立互斥体

模块代码

Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (ByVal lpMutexAttributes As Long, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  
'variable constant to match if the mutex exists
Private Const ERROR_ALREADY_EXISTS = 183&
  
'Application Variable Declarations
Public Const AppVer = "MyApp v1.1"
Public Function Test()

Dim Mutexvalue As Long
  
'*the following code would go in the starting function of your application
'either the main() or form_load() depending on how your application works
  
'Create an individual mutex value for the application
Mutexvalue = CreateMutex(ByVal 0&, 1, AppVer)
  Debug.Print Mutexvalue
'If an error occured creating the mutex, that means it
'must have already existed, therefore your application
'is already running
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
  
'Inform the user of running the same app twice
MsgBox "The application is already running."
  
'Terminate the application via the reference to it, its hObject value
CloseHandle Mutexvalue
Application.Quit acQuitSaveNone
End If
End Function


测试例子

游客，如果您要查看本帖隐藏内容请回复

wu8313

运行 楼主的附件，确实有 禁止多开的效果。
但是，把该附件的模块 ，导入到我自己的mdb文件中，就没有 禁止多开的效果了。

==============================
搜索网络，找到一个 使用互斥 方法，禁止多开的实例。
把模块导入你自己的mdb文件，同样可以 禁止多开。

xlb004

11111111111111111

ANDY8

學習

bigyoung

谢谢分享,学习学习

yanwei82123300

谢谢分享

崔延东

学习

yodong

要学习一下

真主

谢了

rgbso

受教了