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 listview导出到excel

Delphi2007在win7系统下的日期问题

Delphi将xm音乐文件嵌入自己的程序

Delphi memo1 行随机打乱

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

Delphi idhttp访问http与https不同点

Delphi 蓝牙连接打印机演示

Delphi从memo去重数据

Delphi通过ip或机器名获取局域网mac地址

Delphi program name、process id、window handle、process handle 的转换函数

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

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