Текущий архив: 2002.06.20;
Скачать: CL | DM;

Вниз

shutdown   Найти похожие ветки 

← →
VictorT   (2002-03-22 13:20) [0]

Подскажите плиз, как можно програмно завершить роботу Windows NT 4.0. В Win 9x я делал запуском rundll.exe с параметрами.

---

← →
Alx2 ©   (2002-03-22 13:24) [1]

см. ExitWindowsEx

---

← →
VictorT   (2002-03-22 13:28) [2]

Спасибочки, помог.

---

← →
drpass ©   (2002-03-22 15:31) [3]

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

---

← →
SerVS - S   (2002-03-22 17:08) [4]

Если лень кому думать, ответы с примерами можно взять на www.delphi.xonix.ru

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c