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');

 

相关阅读 >>

Delphi now 返回当前日期及时间

Delphi deletefile 删除文件

Delphi xe 应用程序横竖屏设置

Delphi tms web core twebhttprequest使用

Delphi2009之timage

Delphi 窗口跟随

Delphi 获取ie网址收藏夹

Delphi 从其它access数据导入数据到本地数据库

apk权限大全 android必懂知识

Delphi 得到不同平台的录音文件保存路径

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

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