delphi 用Delphi提升进程权限为Debug权限


本文整理自网络,侵删。

 uses tlhelp32;

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;

调用:

SetPrivilege
KillTask ('winlogon.exe'); 

相关阅读 >>

Delphi tfdmemtable 更新到数据库

Delphi 利用tidhttp实现文件下载的分块断点续传

Delphi 数字分隔

Delphi 移位函数

Delphi qq表情的实现

Delphi 得到指定文件夹内文件名

Delphi 调用js字符串编码

Delphi中使用内联变量(inline variables) 的5个理由

Delphi的stringreplace 字符串替换函数

Delphi treeview �c 自动展开树形结构

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



打赏

取消

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

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

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

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

评论

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

    暂无评论...