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

Вниз

Выключение компьютера   Найти похожие ветки 

← →
Вадим ©   (2002-01-27 21:11) [0]

Как выключить компьютер под XP

Спасибо.

---

← →
VuDZ ©   (2002-01-27 21:41) [1]

official ExitWindows(), ExitWindowsEx()
unofficial CsrClientCallServer(), ZwShutdownSystem()
только вот привилегии для этого нужны...
читай МСДН

---

← →
Tosov ©   (2002-01-27 22:37) [2]


var
hToken:THandle;
tkp,PrevState:_TOKEN_PRIVILEGES;
k:DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);

LookupPrivilegeValue(nil, "SeShutdownPrivilege", tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(PrevState), PrevState, k);
ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);

end;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.011 c