проверка запуска одного экземпляра приложения

← →
Анна (2009-03-03 12:13) [0]

Программа запускается с сервера. Пользователи запускают программу в рамках своей терминальной сессии.
Как проверить, чтобы у каждого пользователя в рамках своей терминальной сессии запускался только один экземпляр приложения?
Ответьте пожалуйста. В интернете, к сожалению, не могу поискать, на работе резко уменьшили скорость интернета, стало невозможно что-то почитать и найти. Кризис.

← →
clickmaker © (2009-03-03 13:13) [1]

hMutex := CreateMutex(nil, false, PChar("Local\" + AppName);
if (hMutex = 0 and (GetLastError() = ERROR_ALREADY_EXISTS) then
// уже запущен в этой сессии
где AppName - любая строка, уникально идентифицирующая приложение

← →
Вариант (2009-03-03 13:26) [2]

> if (hMutex = 0 and (GetLastError() = ERROR_ALREADY_EXISTS)
> then

Наверное описка
> hMutex = 0

В случае успеха выполнения функции CreateMutex, hMutex <> 0, даже если он уже был создан.
Или AND меняем на OR, ошибку создания мьютекса считаем тоже причиной для выхода.

← →
clickmaker © (2009-03-03 13:33) [3]

да, точно

← →
Анна (2009-03-03 14:29) [4]

проверка запуска одного экземпляра приложения Найти похожие ветки