winnt 下关机代码

最新推荐文章于 2025-04-26 19:06:45 发布

原创最新推荐文章于 2025-04-26 19:06:45 发布 · 933 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#token #query

收录于

Delphi..... 同时被 2 个专栏收录

8 篇文章

订阅专栏

Delphi.....

8 篇文章

订阅专栏

博客给出一段代码，涉及Token操作。代码中通过OpenProcessToken获取进程令牌，LookupPrivilegeValue查找权限值，AdjustTokenPrivileges调整令牌权限，最终使用ExitWindowsEx实现系统关机。

var hToken: THANDLE; Tkp:TOKEN_PRIVILEGES; Nothing:Cardinal; begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken); LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); tkp.PrivilegeCount:=1; tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, FALSE, tkp, 0, nil, Nothing); ExitWindowsEx(EWX_ShutDown, 0) end;