Delphi Debug权限提升

最新推荐文章于 2026-06-14 14:13:02 发布

转载最新推荐文章于 2026-06-14 14:13:02 发布 · 1.9k 阅读

标签

#delphi #token

收录于

Delphi 专栏收录该内容

24 篇文章

订阅专栏

本文介绍了一个过程，通过该过程可以在当前进程中启用SeDebug特权。这涉及到使用Windows API函数如OpenProcessToken, LookupPrivilegeValue, 和AdjustTokenPrivileges等来获取和修改进程令牌的特权。

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;