Тема: Запрет повторного входа без открытия окна?

Возможно ли реализовать запрет повторного входа в ТДМС (v3.00.16) для пользователя
без ОТКРЫТИЯ ОКНА ПРИЛОЖЕНИЯ ?

Попытка размещения команды ThisApplication.Quit в обработчике Startup() не дает результата - данная команда просто игнорируется.
Я думаю, что это происходит в следствии невозможности послать сообщение на закрытие окна - окну которого нет.

Существуют ли иные способы?.
Или что-либо неверно в моих действиях.

Тест выполнялся на простейшем скрипте.
'Sub Startup()
'  if ThisApplication.CurrentUser.Type = tdmUser then
'    MsgBox "Exit"
'    ThisApplication.Quit
'  end if 
'End Sub

Сообщение отображается и выполняется вход в приложение.

Re: Запрет повторного входа без открытия окна?

Энергопроект пишет:

Возможно ли реализовать запрет повторного входа в ТДМС (v3.00.16) для пользователя
без ОТКРЫТИЯ ОКНА ПРИЛОЖЕНИЯ ?

средствами тдмс нельзя.

Энергопроект пишет:

Попытка размещения команды ThisApplication.Quit в обработчике Startup() не дает результата - данная команда просто игнорируется.
Я думаю, что это происходит в следствии невозможности послать сообщение на закрытие окна - окну которого нет.

Существуют ли иные способы?.
Или что-либо неверно в моих действиях.

Тест выполнялся на простейшем скрипте.
'Sub Startup()
'  if ThisApplication.CurrentUser.Type = tdmUser then
'    MsgBox "Exit"
'    ThisApplication.Quit
'  end if 
'End Sub

Сообщение отображается и выполняется вход в приложение.

ThisApplication.Quit не срабатывает потому что на момент выполнения события  Startup() - приложение еще не загружено полностью, а находится в процессе загрузки.

(изменено: vorona, 14 апреля 2010г. 12:41:51)

Re: Запрет повторного входа без открытия окна?

.

(изменено: vorona, 14 апреля 2010г. 12:41:13)

Re: Запрет повторного входа без открытия окна?

.

Re: Запрет повторного входа без открытия окна?

vorona пишет:

средствами тдмс нельзя.

Большое спасибо. Это все, по этому вопросу.

Re: Запрет повторного входа без открытия окна?

На сколько знаю можно ограничить сервером лицензий.
Лично не делал никогда, но в мануале к FlexLm должно быть описано как ограничить количество выдаваемых лицензий на одно рабочее место.