всем большой спасиб.
обновление скриптом и контроль в нем сам по себе хорошо на компах где автообновление - у клиентов,
но мьютекс тоже не помешает - для себя любимого
пока сделал так:
в автозагрузке: call Check_Mutex
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Compare Database
Option Explicit
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, 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
Public Sub Check_Mutex()
Dim hMutex As Long
hMutex = CreateMutex(ByVal 0 &, 1 , CurrentProject.name)
If (Err.LastDllError = 183 &) Then
ReleaseMutex hMutex
CloseHandle hMutex
' MsgBox "Приложение уже запущено, нажмите OK для завершения."
Application.Quit
End If
End Sub
вроде все неплохо, только небольшая проблемка - когда делаешь сжатие
проект также закрывается.
