#DEFINE STANDARD_RIGHTS_REQUIRED 983040
ON ERROR RETURN .F.
LOCAL gcStartPath AS Character, ghSmp AS Integer
* Путь к приложению - слэши заменяем на восклицательные знаки для 
* передачи параметра во внешние функции Win32 API
gcStartPath = STRTRAN(This.Tekdir, "\", "!")
********* Обявление внешних функций Win32 API *********
DECLARE INTEGER OpenSemaphore IN kernel32;
INTEGER dwDesiredAccess, INTEGER bInheritHandle,;
STRING lpName
DECLARE INTEGER CreateSemaphore IN kernel32;
STRING @lpSemaphoreAttrib, INTEGER lInitialCount,;
INTEGER lMaximumCount, STRING lpName
DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject
*******************************************************
* Проверяем существование семафора с именем, равным полному пути к EXE-файлу приложения
ghSmp = OpenSemaphore(STANDARD_RIGHTS_REQUIRED, 0, gcStartPath )
* Если семафор найден, возвращаем .F. - приложение уже запущено
IF ghSmp <> 0 
    MESSAGEBOX("Приложение " + STRTRAN(gcStartPath, "!", "\") + " уже запущено!", 48 + 4096, "Ошибка", 3000)
    ON ERROR
    RETURN .F.
ENDIF
* Создаем семафор с именем, равным полному пути к EXE-файлу приложения
ghSmp = CreateSemaphore (0, 1, 1, gcStartPath)
RELEASE gcStartPath, ghSmp
ON ERROR
* Возвращаем .T. - запускается первый экземпляр приложения
RETURN .T. 

#DEFINE STANDARD_RIGHTS_REQUIRED 983040
LOCAL gcStartPath AS Character, ghSmp AS Integer
* Путь к приложению - слэши заменяем на восклицательные знаки для 
* передачи параметра во внешние функции Win32 API
gcStartPath = STRTRAN(This.Tekdir, "\", "!")
********* Обявление внешних функций Win32 API *********
DECLARE INTEGER OpenSemaphore IN kernel32;
INTEGER dwDesiredAccess, INTEGER bInheritHandle,;
STRING lpName
DECLARE INTEGER ReleaseSemaphore IN kernel32; 
    INTEGER   hSemaphore,; 
    INTEGER   lReleaseCount,; 
    INTEGER @ lpPreviousCount 
DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject
*******************************************************
* Проверяем существование семафора с именем, равным полному пути к EXE-файлу приложения
ghSmp = OpenSemaphore(STANDARD_RIGHTS_REQUIRED, 0, gcStartPath )
IF ghSmp > 0
    = ReleaseSemaphore (ghSmp ,1,0) 
ENDIF

DEFINE CLASS CEvent AS Custom
    nHandle  = 0
    
    PROCEDURE Init
    LPARAMETERS cMyProc
        DECLARE INTEGER OpenEvent IN Win32Api ;
            INTEGER, INTEGER, STRING
        DECLARE INTEGER CreateEvent IN Win32Api ;
            INTEGER, INTEGER, INTEGER, STRING
    
        THIS.nHandle = OpenEvent(2, 0, cMyProc)
        IF THIS.nHandle != 0
            RETURN .F.
        ENDIF
        THIS.nHandle = CreateEvent(0, 0, 0, cMyProc)
    ENDPROC
    
    PROCEDURE Destroy
        CloseHandle(THIS.nHandle)
    ENDPROC
ENDDEFINE

DEFINE CLASS CApp AS CUSTOM
    oEvent = .F.
    PROCEDURE Init
        THIS.oEvent = CREATEOBJECT('CEvent', 'MyProc')
        IF VARTYPE(THIS.oEvent) != 'O'
            MESSAGEBOX('Уже запущено')
            ... Какие-то действия
        ENDIF
        ... Ля-ля-ля
    ENDPROC
ENDDEFINE

hSem = CreateSemaphore(NULL,1,1,'SemName')
IF hSem>0 AND GetLastError()=183
  * Семафор уже существует
  CloseHandle(hSem)
  return .F.
ENDIF
* Тело программы
CloseHandle(hSem)