Delphi 关键 重启 注销
生活随笔
收集整理的這篇文章主要介紹了
Delphi 关键 重启 注销
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
//在初始化的時候獲取權限
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 关键 重启 注销的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 江南百景图鬼门关作用是什么?
- 下一篇： 打印到类阵列的给定序列的所有排列的n皇后