如何在Inno安装程序中执行cmd命令
如何在Inno安装程序中执行cmd命令
提问于 2013-02-20 15:44:50
为了静默地安装MySQL，我尝试在cmd中执行以下命令，它运行良好：
msiexec /i "mysql-essential-6.0.11-alpha-winx64.msi" /qn但是，如何在Inno安装程序中安装之前运行命令？
回答 1
Stack Overflow用户
回答已采纳
发布于 2013-02-20 16:07:22
您可以通过从Exec事件方法调用CurStepChanged函数来执行它，此时步骤将是ssInstall。在下面的脚本中，如何将该MySQL安装程序包含到您的安装程序中，以及如何在安装开始之前提取和执行它：
#define MySQLInstaller "mysql-essential-6.0.11-alpha-winx64.msi"
[Files]
Source: "{#MySQLInstaller}"; Flags: dontcopy[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
Params: string;
ResultCode: Integer;
begin
if (CurStep = ssInstall) then
begin
ExtractTemporaryFile('{#MySQLInstaller}');
Params := '/i ' + AddQuotes(ExpandConstant('{tmp}\{#MySQLInstaller}')) + ' /qn';
if not Exec('msiexec', Params, '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
MsgBox('Installation of MySQL failed. Exit code: ' + IntToStr(ResultCode),
mbInformation, MB_OK);
end;
end;利用未使用的进度条：
由于MySQL的安装完成需要一段时间，并且您已经决定隐藏安装程序的用户界面(无论如何也可能相当不安全)，所以您可以扩展脚本以使用进度条，该进度条在安装过程中显示在它的起始位置，并且在安装过程中未使用。以下代码将Inno安装程序的安装进度条(至少在Windows系统上)切换到marquee style，并在状态标签中显示说明。完成MySQL安装后，进度条将切换回正常模式，并启动实际的Inno安装：
#define MySQLInstaller "mysql-essential-6.0.11-alpha-winx64.msi"
[Files]
Source: "{#MySQLInstaller}"; Flags: dontcopy[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
Params: string;
ResultCode: Integer;
begin
if (CurStep = ssInstall) then
begin
WizardForm.ProgressGauge.Style := npbstMarquee;
WizardForm.StatusLabel.Caption := 'Installing MySQL. This may take a few minutes...';
ExtractTemporaryFile('{#MySQLInstaller}');
Params := '/i ' + AddQuotes(ExpandConstant('{tmp}\{#MySQLInstaller}')) + ' /qn';
if not Exec('msiexec', Params, '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
MsgBox('Installation of MySQL failed. Exit code: ' + IntToStr(ResultCode),
mbInformation, MB_OK);
WizardForm.ProgressGauge.Style := npbstNormal;
WizardForm.StatusLabel.Caption := '';
end;
end;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/14984009
复制相关文章
相似问题
腾讯云开发者
