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 twebbrowser get html source after ajax load

Delphi 获取外部程序句柄与发送消息

Delphi 让combobox只允许输入数字和回车键以及Delphi key值表

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi隐藏桌面图片和显示桌面图标

Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

Delphi 调出windows 系统时间设置对话框

Delphi 保证当前程序显示在最前

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

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