RSS订阅 | 匿名投稿
您的位置:网站首页 > 进程 > 正文

Delphi 提高进程自身权限

作者:admin 来源: 日期:2018/1/19 20:42:19 人气: 标签:

有时候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;
        end;
    end;
end;


//调用方式
AdjustProcessPrivilege('SeDebugPrivilege');


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料