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[].luid := Luid;

TokenPrivileges.PrivilegeCount := ;

TokenPrivileges.Privileges[].Attributes := ;

AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength);

OldTokenPrivileges.Privileges[].luid := Luid;

OldTokenPrivileges.PrivilegeCount := ;

OldTokenPrivileges.Privileges[].Attributes := TokenPrivileges.Privileges[].Attributes or SE_PRIVILEGE_ENABLED;

AdjustTokenPrivileges(hToken, False, OldTokenPrivileges, ReturnLength, PTokenPrivileges(nil)^, ReturnLength);

end;

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