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 MULTILOCK 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

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

* Проверяю факт создания частной сессии данных
IF Type("m.goSessionUsers") = "U"
    * Это ошибка. 
    * К моменту вызова данной функции частная сессия должна быть уже создана
    * Поэтому прерываю процесс с сообщением об ошибке
    MessageBox("Нет сессии данных служебной таблицы")
    Return
Else
    * Перехожу в частную сессию данных
    Set DataSession To goSessionUsers.DataSessionId
EndIf

* Большинство настроек уже все выполнены при создании частной сессии данных 
* в момент запуска приложения. Однако одну настройку следует установить
* не забыв сохранить исходное значение
LOCAL lnReporcess
lnReporcess = SET("REPROCESS")
SET REPROCESS TO 0 SECONDS    && Спасибо Вадиму (piva) за подсказку ключевого слова SECONDS    

* Создаю временную таблицу со структурой, дублирующей структуру служебной таблицы  
* В эту временную таблицу будет записан результат поиска 
* Опция READWRITE была введена только в версии Visual FoxPro 7
* Чтобы сделать курсор редактируемым в младших версиях FoxPro
* его придется переоткрыть повторно в другой рабочей области.
* Замечу также, что при таком запросе поле типа Integer-Autoincrement исходной таблицы
* конвертируется в поле с обычным типом Integer, что, в данном случае, как раз и требуется 
USE IN SELECT('curCon')  
SELECT * FROM curProc INTO CURSOR curCon NOFILTER READWRITE WHERE .F.  
    
* Собственно поиск записей, заблокированных другими процессами  
LOCAL laFields(1)  
select curProc   
SET ORDER TO 0  
SCAN  
    IF IsRLocked() = .T. OR RLOCK() = .F.  
        * Эта запись содержит информацию о пользователе,   
        * использующем данное приложение в настоящий момент  
        * Копирую ее в итоговый курсор
        SCATTER TO laFields  
        INSERT INTO curCon FROM ARRAY laFields  
    ELSE  
        * Поскольку удалось установить блокировку, то данная запись никем не используется
        * Снимаю с нее блокировку и перехожу к следующей записи
        UNLOCK RECORD Recno()  
    ENDIF  
ENDSCAN  

* Возвращаюсь к записи заблокированной при входе в текущую копию приложения
LOCATE FOR IsRLocked() = .T.  

* Восстанавливаю исходную настройку текущей сессии
SET REPROCESS TO m.lnReporcess   

* Отображение результата поиска  
select curCon  
GO TOP  
BROWSE NOWAIT

* Возвращаюсь в исходную сессию данных
Set DataSession To m.lnSessionCurrent

LOCAL laStructure(1), laContent(1)

Select curCon  
* Копирую структуру курсора в массив
=AFields(laStructure)
* Копирую содержимое курсора в массив
COPY TO ARRAY laContent
* Возвращаюсь в исходную сессию данных
Set DataSession To m.lnSessionCurrent
* Создаю новый курсор
CREATE CURSOR curCon FROM ARRAY laStructure
* Наполняю его данными из массива
APPEND FROM ARRAY laContent