Delphi提升程序权限代码

香干泥

Delphi提升程序权限代码
在几个群个做《征途》辅助的新朋友们总在问怎么写地址
我都说了看看广海　或者　辅助研究院的帖子，这些地方会有的
今天找了找，太多帖子了，乱…………，找到最后好像没有，可能我记错了
那我就发发，这是我的代码，如有雷同，纯属志同道合

//提升权限
    if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
    begin
      LookupPrivilegeValue(nil, 'SeDebugPrivilege', tkp.Privileges[0].Luid);
      tkp.PrivilegeCount:= 1;
      tkp.Privileges[0].Attributes:= $2;
      AdjustTokenPrivileges(hToken, FALSE, tkp, sizeof(tkp), otkp, dwLen);
    end;

我个人有点懒，别人写的很多，我就写了这么多

  hToken :THandle ;
  tkp :TOKEN_PRIVILEGES ;
  otkp :TOKEN_PRIVILEGES ;
  dwLen :Dword ;

N年前写的东西了，我也记不住参照谁的了，在此就不写了

ssddyang

写成一个函数来调用
function AdjustProcessPrivilege(ProcessHandle: THandle; Token_Name: Pchar): boolean;
var
  Token: Cardinal;
  TokenPri: _TOKEN_PRIVILEGES;
  ProcessDest: int64;
  l: DWORD;
begin
  Result := False;
  if OpenProcessToken(ProcessHandle, 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;
      l := 0;
      //更新進程令牌，成功返回TRUE
      if AdjustTokenPrivileges(Token, False, TokenPri, sizeof(TokenPri), nil, l) then
      Result := True;
    end;
  end;
end;

//调用函数
AdjustProcessPrivilege(GetCurrentProcess, 'SeDebugPrivilege');