Как запретить запуск двух копий программ

[D[u]fa]

Private Sub Form_Load()
  If App.PrevInstance Then End
End Sub

Сообщение отредактировано: Andrey_Kun - 31.03.04, 14:59

[Vasya2000]

Есть еще вариант - создавать мутекс, главное правильно делать:

Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
 
Private Const ERROR_ALREADY_EXISTS = 183&
Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Dim hMutex As Long
 
Private Sub Form_Load()
Dim sa As SECURITY_ATTRIBUTES
sa.bInheritHandle = 1
sa.lpSecurityDescriptor = 0
sa.nLength = Len(sa)
 
hMutex = CreateMutex(sa, False, "hcs app.previnstance research")
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
    MsgBox "Одна копия программы уже запущена! Данный экземпляр будет выгружен..."
    Unload Me
End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
CloseHandle hMutex
End Sub

Сообщение отредактировано: SCINER - 17.01.08, 10:41