перезагрузка компьютера

← →
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

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

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