如何在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;