zoukankan      html  css  js  c++  java
  • RunAsAdmin

    program AdminCMD;

    {$APPTYPE CONSOLE}

    uses
      Windows,
      ShellApi,
      SysUtils;

    function RunAsAdmin(const iExeName, iParam: String): Boolean;
    var
      SEI: TShellExecuteInfo;
    begin
      Result := False;

      if (CheckWin32Version(6)) then
      begin
        ZeroMemory(@SEI, SizeOf(SEI));

        with SEI do
        begin
          cbSize := SizeOf(SEI);
          Wnd := 0;
          fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
          lpVerb := 'runas';
          lpFile := PChar(iExeName);
          lpParameters := PChar(iParam);
          nShow := SW_SHOW;
        end;

        Result := ShellExecuteEx(@SEI);
      end;
    end;

    var
      CmdPath: String;
    begin
      CmdPath := StringOfChar(#0, MAX_PATH);
      ExpandEnvironmentStrings(
        PChar('%ComSpec%'),
        PChar(CmdPath),
        Length(CmdPath));

      CmdPath := Trim(CmdPath);

      RunAsAdmin(CmdPath, '');
    end.

  • 相关阅读:
    C语言|博客作业07
    C语言|博客作业06
    C语言|博客作业05
    C语言|博客作业04
    C语言|博客作业03
    C语言I博客作业02
    我的第一周作业!
    第三周作业
    读书笔记《莫让青春沾染暮气》
    第二周作业
  • 原文地址:https://www.cnblogs.com/yzryc/p/6397209.html
Copyright © 2011-2022 走看看