10.11.2006, 07:27
общий
это ответ
Здравствуйте, Зайцев Александр!
Я бы предложил Вам извратиться так:
1. Создать константу - ИнициаторСобытия, куда будет помещаться имя пользователя, вызвавшего событие;
2. Создать процедуру в глобальном модуле, которая будет вызывать завершение работы пользователя с помощью процедуры ЗавершитьРаботуСистемы() при условии, что константа в пункте 1 заполнена и она не равна текущему пользователю;
3. В предопред. процедуре ПриНачалеРаботыСистемы() создать обработчик ожидания на процедуру в пункте 2; а также установку константы в пункте 1 в пустую строку.
Все... потом, чтоб завершить всех остальных, вы просто заполняете константу.