Delphi重新启动Windows

user1937012 发表于 Dev

用户名

我正在使用Windows 10，并且以管理员身份登录。

当我尝试重新引导系统时，它所做的只是使我注销。

ExitWindowsEx(EWX_REBOOT and EWX_FORCE, 0);

有人可以告诉我为什么不重启吗？

安德烈·范·祖丹（Andre Van Zuydam）

我一直在寻找一种更好的解决方案，以解决大约5年前所做的事情（发布在下面），我需要做一些调整才能在最新的Delphi上运行，而较早的Delphi版本仅使用Windows.AdjustTokenPrivileges。自Windows XP以来，下面的代码已经过尝试和测试。小心-它会起作用，请确保在运行之前保存您的工作！

//Uses WinApi.Windows on Latest Delphi 10.3.2
function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;


cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil,
                                       SE_SHUTDOWN_NAME,
                                       TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        //Older Delphi - replace the WinApi. to read WinApi.AdjustTokenPrivileges
        WinApi.Windows.AdjustTokenPrivileges(TTokenHd,
                                      False,
                                      TTokenPvg,
                                      cbtpPrevious,
                                      rTTokenPvg,
                                      pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

//Examples
//Shutdown the computer

MyExitWindows(EWX_POWEROFF or EWX_FORCE);

//Reboot the computer
MyExitWindows(EWX_REBOOT or EWX_FORCE);

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。