如何在Inno Setup的执行CMD命令

Question

对于安装MySQL默默的，我试过之后在cmd命令，它工作正常：

msiexec /i "mysql-essential-6.0.11-alpha-winx64.msi" /qn 

但是，我怎么能运行该命令中的Inno Setup安装之前？

Answer 1

您可以通过调用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安装完成需要一段时间，并且您已决定隐藏安装程序的用户界面（反正也可能非常不安全），您可以扩展脚本以使用进度条显示在其起始位置在安装过程中以及未使用的时间。以下代码至少在Windows XP系统上切换Inno Setup的安装进度条到marquee style，并在状态标签中显示说明。当MySQL安装完成后，进度条切换回正常模式和实际Inno Setup的安装开始：

#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;