delphi 提高进程自身权限

有时候OpenProcess打开进程权限会不够，所以就要提升下自身进程的权限

直接贴代码:

// 参数:权限名称，返回: 成功返回TRUE

Function AdjustProcessPrivilege(Token_Name: Pchar): Boolean;

var

Token: Cardinal;

TokenPri: TOKEN_PRIVILEGES;

ProcessDest: int64;

PreSta: DWORD;

begin

Result := False;

if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES,Token) then

begin

if LookupPrivilegeValue(nil,Token_Name,ProcessDest) then

begin

TokenPri.PrivilegeCount := 1;

TokenPri.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

TokenPri.Privileges[0].Luid := ProcessDest;

PreSta := 0;

if AdjustTokenPrivileges(Token,False,TokenPri,sizeof(TokenPri),nil,PreSta) then

begin

Result := True;

end;

//调用方式

AdjustProcessPrivilege('SeDebugPrivilege');

推荐分享