//在初始化的時候獲取權限 varhToken: THandle;Tkp: TTokenPrivileges;Zero: DWORD;beginOpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES orTOKEN_QUERY, hToken);LookupPrivilegeValue(nil, 'SeShutdownPrivilege', Tkp.Privileges[0].Luid);Tkp.PrivilegeCount := 1;Tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;AdjustTokenPrivileges(hToken, False, Tkp, SizeOf(TTokenPrivileges),nil, Zero);end; --------****---------ExitWindowsEx(EWX_SHUTDOWN, 0);//close ExitWindowsEx(EWX_REBOOT, 0);//reoot

ExitWindowsEx(EWX_LOGOFF,0)// 注銷

轉載于:https://www.cnblogs.com/xh0626/p/4826220.html

總結

以上是生活随笔為你收集整理的Delphi 关键 重启 注销的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。