Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 3 975

Раздел: Delphi » Взаимодействие с Windows
/ вопрос открыт /

Здравствуйте!

Хочу, чтобы запускалась только одна копия приложения.
Выдержка из кода в приложении.

Всё нормально работает, но, оказалось, что только в одной сессии. Если зайти под другим пользователем, то прекрасно вторая копия стартует.

Как сделать, чтобы в любом случае работала только одна?

Приложение:
  1. ...
  2.  
  3. var
  4. HM: THandle;
  5.  
  6. function Check: boolean;
  7. begin
  8. HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'TSA');
  9. Result := (HM <> 0);
  10. if HM = 0 then
  11. HM := CreateMutex(nil, false, 'TSA');
  12. end;
  13.  
  14. begin
  15. if Check then Exit;
  16.  
  17. ...


Фамилия Имя Отчество Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Фамилия Имя Отчество (статус: Посетитель)
Вопрос отправлен: 5 апреля 2010, 02:50
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 5 апреля 2010, 02:51; участников в обсуждении: 1.
Фамилия Имя Отчество

Фамилия Имя Отчество (статус: Посетитель), 5 апреля 2010, 02:51 [#1]:

"TSA" - это название программы

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 16:42
Выполнено за 0.02 сек.