| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
shutdown
VictorT © (2002-03-22 13:20:00)Подскажите плиз, как можно програмно завершить роботу Windows NT 4.0. В Win 9x я делал запуском rundll.exe с параметрами.
SerVS - S (2002-03-22 17:08:00) [1]Если лень кому думать, ответы с примерами можно взять на www.delphi.xonix.ru
drpass (2002-03-22 15:31:00) [2]t: _Token_Privileges;
ht: cardinal;
rl: cardinal;
...
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ht) then begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege", t.Privileges[0].Luid);
t.PrivilegeCount:=1;
t.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(ht, false, t, 0, nil, rl);
end;
А дальше делаешь ExitWindowsEx
VictorT (2002-03-22 13:28:00) [3]Спасибочки, помог.
Alx2 (2002-03-22 13:24:00) [4]см. ExitWindowsEx
| |
