Спячка/Перезагрузка WindowsXP, Win2000 [D2, D3, D4, D5, D6, Win2k, WinXP]
Asker © (2002-03-08 20:29:00)
Подскажите, как отправить в спячку 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:00) [1]
я думаю, что msdn поможет нуждающимся - там всё хорошо описано
и есть пример, но код, в общем-то верный.
PS GetLastError() - лучший друг прогруммёра
Наверх 
ЧАТ |
Орешник |
|
