|
Запрет запуска нескольких копий приложения
Основано на эффекте возврата функцией Getobject
первого запущенного приложения:
Dim FirstRunnedApp
Set FirstRunnedApp = GetObject(CurrentProject.FullName)
If Application.hWndAccessApp <> FirstRunnedApp.hWndAccessApp Then
MsgBox "Не первый экземпляр"
FirstRunnedApp.DoCmd.RunCommand 10
Set FirstRunnedApp = Nothing
Application.Quit
End If
Set FirstRunnedApp = Nothing
| |