Declare Integer CreateMutex In Win32API ;
    Integer lpMutexAttributes, ;
    Integer bInitialOwner, ;
    String lpName

* Формируем идентификатор данного приложения
LOCAL lcApplicationName
lcApplicationName = GetEnv("SessionName") + "#"+ SYS(0)

* Формируем ссылку на объект Mutex
Declare Integer CreateMutex In Win32API ;
    Integer lpMutexAttributes, ;
    Integer bInitialOwner, ;
    String lpName

PUBLIC gnMutex
gnMutex = CreateMutex(0,1,m.lcApplicationName)

* Проверяем факт существования объекта Mutex с тем же именем
#DEFINE ERROR_ALREADY_EXISTS 183
Declare integer GetLastError In Win32API

If GetLastError() = ERROR_ALREADY_EXISTS
    * Приложение уже запущено
    * Надо вывести ранее запущенное приложение на передний план
    * или сообщить об этом факте пользователю
    * и закрыть текущее приложение
    Do CloseMutex with .T.
    Return
EndIf

* Если объект Mutex был именно создан, то нет ранее запущенного приложения 
* и можно запускать текущее приложение

...
READ EVENTS

* По окончании работы приложения надо удалить объект Mutex, хотя это и не обязательно
Do CloseMutex with .F.
Return

* Процедура удаления объекта Mutex
Procedure CloseMutex
LParameters IsExists    && существует ли другое приложение

* Если другое приложение существует, то удалять объект Mutex не надо
* Удаление выполняется только если объект был создан именно в этом приложении
If IsExists = .f.
    * Удаление объекта Mutex
    Declare integer ReleaseMutex IN Win32API Integer hMutex
    ReleaseMutex(m.gnMutex)
EndIf

* Закрытие уже не нужного хендла объекта Mutex
Declare integer CloseHandle IN Kernel32 Integer hObject
CloseHandle(m.gnMutex)

EndProc

CREATE TABLE curProc (CurProcID I AutoInc, SYS0 C(128), LastTime T)

* Запоминаю текущую сессию данных
LOCAL lnSessionCurrent
lnSessionCurrent = SET("DataSession")

* Проверяю факт создания частной сессии данных
IF Type("m.goSessionUsers") = "U"
    PUBLIC goSessionUsers
    goSessionUsers = CreateObject("Session")
    * Перехожу в созданную сессию данных
    Set DataSession To goSessionUsers.DataSessionId
    * Выполняю настройки в этой сессии
    SET REPROCESS TO 3
    SET TALK OFF
    SET MULTILOCKS ON
Else
    * Перехожу в частную сессию данных
    Set DataSession To goSessionUsers.DataSessionId
EndIf

* Собственно поиск и блокировка записи
IF USED("curProc") = .F.
    USE curProc IN 0 SHARED 
ENDIF 
SELECT curProc  
LOCATE FOR SYS0 = SYS(0)  
IF FOUND()=.F.  
    INSERT INTO curProc (SYS0) VALUES (SYS(0))  
ENDIF  

IF RLOCK()=.F.  
    * Запись блокирована другим процессом  
    * Т.е. предпринята попытка повторного запуска приложения  
ELSE  
    * Записываю время входа  
    REPLACE LastTime WITH DateTime()  
ENDIF  
    
* Возвращаюсь в исходную сессию данных
Set DataSession To m.lnSessionCurrent