Delphi XE7开发的直接以管理员模式启动CMD命令行界面


本文整理自网络,侵删。

 介绍

本文章介绍了Delphi XE7开发的直接以管理员模式启动CMD对话框,一般情况下如果是win7的电脑,在开始里面输入cmd是普通模式启动的cmd界面,如果需要启动管理员模式,需要到开始菜单中找到命令提示符,然后右键用管理模式运行,本程序可以直接启动cmd,并以管理员模式启动,省得再去开始菜单里去执行,大家可以下载试试,完整代码是:

program AdminCMD;


//{$APPTYPE CONSOLE}

uses
  Winapi.Windows, Winapi.ShellApi, System.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.

相关阅读 >>

Delphi 10.3 开发app 在android手机上获取imei

Delphi timer定时器 实现定时执行

Delphi 关于多语言:如何获取当前系统语言

Delphi2010中Delphi class explorer妙用

Delphi 删除指定字符串的所有实例

Delphi 创建多级目录

Delphi简单加密解密

Delphi 脉搏波9808血压计读取测试程序

vclzip控件的简单使用

Delphi调用javascript解析json

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...