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窗口显示和关闭的时候出现动画效果

Delphi 的内存操作函数(6): 跨进程的内存分配

Delphi pagecontrol当前页可视

Delphi应用synedit完美实现sql语法高亮

Delphi 拷贝文件夹内所有内容

Delphi shellexecute打开文件另类用法

Delphi idhttp添加头信息

Delphi 判断iso文件，iso文件头， iso filehead

Delphi 获得当前进程所使用的内存

Delphi 公历到农历的转换法

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

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