将参数(/verysilent)传递给从Inno设置中的Pascal代码执行的应用程序(子安装程序

var
  SilentMode: Boolean;

function InitializeSetup(): Boolean;
var
  CommandLine: string;
begin
  CommandLine := GetCmdTail();
  SilentMode := Pos('/verysilent', CommandLine) > 0;
  Result := True;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  SubInstallerPath: string;
  Params: string;
begin
  if CurPageID = wpReady then
  begin
    SubInstallerPath := 'path_to_sub_installer.exe';
    Params := '';
    
    if SilentMode then
      Params := '/verysilent';
    
    if Exec(SubInstallerPath, Params, '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
    begin
      // 子安装程序执行成功
      Result := True;
    end
    else
    begin
      // 子安装程序执行失败
      MsgBox('Failed to execute sub installer.', mbError, MB_OK);
      Result := False;
    end;
  end
  else
  begin
    Result := True;
  end;
end;