Спячка/Перезагрузка WindowsXP, Win2000

← →
Asker (2002-03-08 20:29) [0]

Подскажите, как отправить в спячку WindowsXP? А как правильно его перезагрузить/завершить?
Некоторые предлагают такой код(списал один в один):

procedure RebootSystem;
var
handle, ph: THandle;
pid, n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
dummy: PTokenPrivileges;
ver: TOSVERSIONINFO;
begin
ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
pid := GetCurrentProcessId;
if OpenProcessToken(ph, TOKEN_ADJUST_PRIVILEGES, handle) then
if LookupPrivilegeValue(nil, "SeShutdownPrivilege", luid) then begin
priv.PrivilegeCount := 1;
priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
priv.Privileges[0].Luid := luid;
dummy := nil;
AdjustTokenPrivileges(handle, false, priv, 0, dummy^, n);
end;
end;
ExitWindowsEx(EWX_REBOOT, 0);
//ExitWindowsEx(EWX_SHUTDOWN,0);
end;

Но данный код не работает в WindowsXP и Win2000.

С уважением, Asker
question2000@fromru.com

← →
VuDZ (2002-03-08 20:36) [1]

я думаю, что msdn поможет нуждающимся - там всё хорошо описано и есть пример, но код, в общем-то верный.

PS GetLastError() - лучший друг прогруммёра

Спячка/Перезагрузка WindowsXP, Win2000 Найти похожие ветки