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中输入法模式imemode属性的解释

Delphi 关于datetimepicker的一点问题（同时修改日期和时间的实现）

Delphi 编写activex控件（ocx控件）的知识和样例

Delphi 内存管理[2]

Delphi 采用 tidhttp 访问 https 的网站，采用 tidtcpclient 访问 https 的网站

Delphi 创建dll文件 及其调用和注意事项

Delphi 配置驱动程序（firedac）

Delphi edit1.gettextlen 获取编辑框字符数

Delphi 如何判断html编码格式，解决乱码问题

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

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