Delphi 重启启动计算机的代码

本文整理自网络，侵删。

 
procedure Restart;
var
  TokenHandle: THandle;
  TokenPrivileges: TTokenPrivileges;
begin
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) then
    if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid) then
    begin
      TokenPrivileges.PrivilegeCount := 1;
      TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      AdjustTokenPrivileges(TokenHandle, False, TokenPrivileges, SizeOf(TokenPrivileges), TTokenPrivileges(nil^), DWORD(nil^));
    end;
  ExitWindowsEx(EWX_REBOOT, 0);
end;

 

相关阅读 >>

Delphi datasnap 初步入门使用总结

Delphi 精炼的数字转换人民币大写转换代码

Delphi 调用系统图片查看器

Delphi debug和release区别

Delphi 内存流方式获取页面验证码图片

Delphi 安卓原生的toast温柔提示

Delphi 判断特定字符是为单字节还是双字节

Delphi xe5 android平台 调用 webservice

Delphi 判断上午还是下午

Delphi pi 精确计算返回圆周率

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 重启启动计算机的代码