delphi Debug权限提升


本文整理自网络,侵删。

 
procedure SetPrivilege;
 
var
 
OldTokenPrivileges, TokenPrivileges: TTokenPrivileges;
 
ReturnLength: dword;
 
hToken: THandle;
 
Luid: int64;
 
begin
 
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
 
LookupPrivilegeValue(nil, 'SeDebugPrivilege', Luid);
 
TokenPrivileges.Privileges[0].luid := Luid;
 
TokenPrivileges.PrivilegeCount := 1;
 
TokenPrivileges.Privileges[0].Attributes := 0;
 
AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength);
 
OldTokenPrivileges.Privileges[0].luid := Luid;
 
OldTokenPrivileges.PrivilegeCount := 1;
 
OldTokenPrivileges.Privileges[0].Attributes := TokenPrivileges.Privileges[0].Attributes or SE_PRIVILEGE_ENABLED;
 
AdjustTokenPrivileges(hToken, False, OldTokenPrivileges, ReturnLength, PTokenPrivileges(nil)^, ReturnLength);
 
end;

相关阅读 >>

Delphi 启动程序隐藏主窗体

Delphi与汇编

Delphi的dll中获取文件路径

Delphi 删除指定字符串的所有实例

Delphi dbgrid刷新数据

Delphi 18位身份证号码的校验

Delphi 在 api 函数中使用 pchar 参数的几种方法

Delphi 控制台关闭指定窗口

Delphi真正实现延时暂停功能

Delphi access数据库密码的mdb的访问报错“无法启动应用程序,或是已被其他用户已独占方式打开”

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...