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;

http://www.delphi6.com/thread-3.htm