Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

завершение сеанса в w2k/xp [D7, Win2k, WinXP]


bOSE ©   (2004-04-21 20:18:00) 

Помогите! не можете подсказать как программно завершить сеанс пользователя и заблокировать его учетную запись??
заранее благодарен.


Игорь Шевченко   (2004-04-21 22:41:00) [1]


> А как учетную запись блокнуть?


А нафига ?


Yanis   (2004-04-21 21:12:00) [2]

To [4]
В первый раз слышишь?


bOSE   (2004-04-21 20:54:00) [3]

ключи в реестре?


Bestden   (2004-04-21 20:48:00) [4]

ну это наверное регистр из под делфей править надо...
Но я не знаю какие ключи...


bOSE   (2004-04-21 20:36:00) [5]

Хорошо попробую!
А как учетную запись блокнуть?


Bestden   (2004-04-21 20:29:00) [6]

Для завершения сеанса...
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph);
LookupPrivilegeValue(Nil,'SeShutdownPrivilege', tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:= 2;
AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
ExitWindowsEx(EWX_FORCE,0);


Наверх

Титульная страница Поиск, карта сайта Написать письмо