Exit Windows

Изменить данный совет мне помог [EMAIL=dima@integral.spb.su]Дмитрий Слабко[/EMAIL], приславший письмо следующего содержания:

Хотелось бы внести некоторые дополнения с Ваш FAQ, которые касаются вопроса о завершении/перезагрузки Windows. Указанный код не даст результата для Windows NT (и даже, наверное, для Win2000). Ниже - корректно работающий код для Win9x и WinNT. Проверено под D4.



--------------------------------------------------------------------------------
    uses Windows;

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);
end;