delphi SetPrivilege 提权代码

本文整理自网络，侵删。

 
type
  HANDLE = THandle;
  PTOKEN_PRIVILEGES = ^TOKEN_PRIVILEGES;

Function AdjustTokenPrivileges(
  TokenHandle:          HANDLE;
  DisableAllPrivileges: BOOL;
  NewState:             PTOKEN_PRIVILEGES;
  BufferLength:         DWORD;
  PreviousState:        PTOKEN_PRIVILEGES;
  ReturnLength:         PDWORD): BOOL; stdcall; external advapi32;

//==============================================================================

Function SetPrivilege(const PrivilegeName: String; Enable: Boolean): Boolean;
var
  Token:            THandle;
  TokenPrivileges:  TTokenPrivileges;
begin
Result := False;
If OpenProcessToken(GetCurrentProcess,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,{%H-}Token) then
try
  If LookupPrivilegeValue(nil,PChar(PrivilegeName),{%H-}TokenPrivileges.Privileges[0].Luid) then
    begin
      TokenPrivileges.PrivilegeCount := 1;
      TokenPrivileges.Privileges[0].Attributes := Ord(Enable) * SE_PRIVILEGE_ENABLED;
      If AdjustTokenPrivileges(Token,False,@TokenPrivileges,0,nil,nil) then
        Result := GetLastError = ERROR_SUCCESS;
    end;
finally
  CloseHandle(Token);
end;
end;

//用法 SetPrivilege('SeDebugPrivilege',True);
 

相关阅读 >>

Delphi 如何在数据表中存取图片

Delphi2010下安装控件Delphi

Delphi rest客户端程序

Delphi 如何在窗体标题栏添加按钮

Delphi firedac 下的 sqlite [7] - 备份、优化、事务(transaction)

Delphi winapi: movewindow - 改变窗口的位置与大小

Delphi(更改图标)

Delphi中tinifile类 操作ini文件

Delphi dbgrid中实现copy、paste功能

Delphi 操作“任务栏”

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

转载请注明出处：木庄网络博客 » delphi SetPrivilege 提权代码