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;
        end;
    end;
end;


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

 

相关阅读 >>

fastmm5

Delphi winsock远程唤醒计算机的函数

Delphi 移动桌面图标

Delphi insert 插入一个字符(串)

Delphi xe5读取android imei id

Delphi 判断网络链接文件是否存在

Delphi 校验文件大小

Delphi fmx 从app程序直接跳转到支付宝付款转帐页面

Delphi windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

Delphi 用dbexpress处理jpg图片

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 提高进程自身权限