将进程的特权提升到“SeDebugPrivilege”

最新推荐文章于 2025-04-26 00:48:41 发布

SepSolaraining

最新推荐文章于 2025-04-26 00:48:41 发布

阅读量2.9k

点赞数

CC 4.0 BY-SA版权

文章标签： token forms interface function windows class

本文链接：https://blog.youkuaiyun.com/SepSolaraining/article/details/1702026

本文介绍了一个使用Delphi实现的调整当前进程权限的方法，通过启用SeDebugPrivilege特权来提升进程权限。代码示例展示了如何利用Windows API函数OpenProcessToken、LookupPrivilegeValue、AdjustTokenPrivileges等来完成这一操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit AdjPP;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Tlhelp32, StdCtrls;

type
TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('程序开始运行');
if AdjustProcessPrivilege('SeDebugPrivilege') then begin
ListBox1.Items.Add('提升权限成功');
end else begin
ListBox1.Items.Add('提升权限失败');
end;
end;

end.