Форум: "Система";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Searcher   (2001-12-04 22:16) [3]

2Потеряный
Код, который точно работает под Win2000. (Похоже он не сильно отличается от кода Dimka Maslov, но попробуй..)

procedure shutdown;
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.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c