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

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