If App.PrevInstance Then
Call MsgBox("对不起本程序已在运行中,不得重复加载!!",vbCritical)
End
End If
优点:简单方便、
缺点:针对性不强、随意复制一份即可再次运行、
方法二:创建互斥体(个人比较喜欢)
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 ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Dim ret As Long
Private Sub Form_Load()
ret = CreateMutex(ByVal 0,1,"FORM1") '这里改成程序的标题
If Err.LastDllError = 183 Then
ReleaseMutex ret
CloseHandle ret
MsgBox "程序只能运行一次!",vbCritical,""
End
End If
End Sub
优点:只要窗体的标题不变,无论如何无法双开
缺点:和优点一样、只要其他程序历遍得到本窗体的句柄、然后sendmessage让窗体的标题(caption)改变就可以多开
Private Declare Function GlobalAddAtom% Lib "kernel32" Alias "GlobalAddAtomA" (ByVal AtomName As String)
Private Declare Function GlobalFindAtom% Lib "kernel32" Alias "GlobalFindAtomA" (ByVal AtomName As String)
Private Declare Function GlobalDeleteAtom% Lib "kernel32" (ByVal AtomName As Integer)
Private Atom As Long
Private Sub IsAtom()
If GlobalFindAtom(App.EXEName) = 0 Then Atom = GlobalAddAtom(App.EXEName) Else unlaod Me
End Sub
Private Sub Form_Load()
IsAtom
End Sub
Private Sub Form_Unload(Cancel As Integer)
GlobalDeleteAtom Atom
End Sub
原文地址:https://www.jb51.cc/vb/258317.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。