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

Вниз

перезагрузка компьютера   Найти похожие ветки 

← →
Radimir   (2003-02-10 11:46) [0]

Здраствуйте. Подскажите как перезагрузить компьютер програмно. Поискал по хелпам нашел как перегрузить Windows или как совсем выключить. Перезагрузка не получается. Привожу используемый код:

var
ph:THandle;
tp,prevst:TTokenPrivileges;
rl:DWORD;
begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY,ph);
LookupPrivilegeValue(Nil,"SeRebootPrivilege",tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);
ExitWindowsEx(EWX_Reboot,0);
end;

Заранее благодарен за ответы.

---

← →
gsu ©   (2003-02-10 12:09) [1]

может из-зи этого ?
EWX_REBOOT Shuts down the system and then restarts the system. Windows NT: The calling process must have the SE_SHUTDOWN_NAME privilege

---

← →
ZZ ©   (2003-02-10 16:49) [2]

LookupPrivilegeValue(Nil, "SeRebootPrivilege",tp.Privileges[0].Luid);
тоже юмор :)

---

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

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

Наверх

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