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 字符串加密解密代码

Delphi异常信息捕捉

Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数

Delphi shellexecute打开文件另类用法

Delphi写的一个屏幕截取函数

Delphi dataset和json互转函数

Delphi str1.compare 比较两个字符是否相同

Delphi 减小程序的尺寸(关闭rtti反射机制)

trichedit 是一个标准的rtf编辑器

Delphi tdictionary 泛型如何排序

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

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