本文整理自网络，侵删。
介绍
本文章介绍了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中break,exit,abort跳出循环的比较
Delphi xe10 android安卓 移动端 messagedlg 用法
更多相关阅读请进入《Delphi》频道 >>
