zoukankan      html  css  js  c++  java
  • EnableDebugPriv;

    procedure EnableDebugPriv;
    const SE_DEBUG_NAME = 'SeDebugPrivilege';
    var hToken: THandle;
      lpLuid: TLargeInteger;
      tkp: TOKEN_PRIVILEGES;
      bRes: Boolean;
      retlen: DWORD;
      szLog: string;
    begin

        //*以调整和查询的方式,打开本进程的令牌环*/
      bRes := OpenProcessToken( GetCurrentProcess(),
                                TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
                                hToken );
      if (bRes) then
      begin
        bRes := LookupPrivilegeValue(nil, SE_DEBUG_NAME, lpLuid);
        if(not bRes) then
        begin
          CloseHandle(hToken);
        end else
        begin
          tkp.PrivilegeCount := 1;
          tkp.Privileges[0].Luid := lpLuid;
          tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

            bRes := AdjustTokenPrivileges( hToken,
                                         false,
                                         tkp,
                                         sizeof(TOKEN_PRIVILEGES),
                                         nil,
                                         retlen );
          if bRes then
          begin
            szLog := 'IS ok';
          end else
          begin
            szLog := 'IS FAIL';
          end;

        end;
      end;
    end;
  • 相关阅读:
    常用 SQL Server 规范集锦
    让Git忽略所有obj和bin目录的同步
    Sql server 存储过程基础语法
    nginx 站点代理,负载均衡
    CentOS7.0安装Nginx-1.12.0
    CentOS7安装GNOME可视化界面和如何配置IP地址
    开发工具资料集合
    NOIP2018总结反思
    NOIP2018考试报告
    STL基础用法
  • 原文地址:https://www.cnblogs.com/chenhs/p/1776880.html
Copyright © 2011-2022 走看看