使用命令行参数的条件安装

实施 install1 和 porta1 功能如下:

function HasCommandLineSwitch(Name: string): Boolean;
var
  I: Integer;
begin
  Result := False;

  for I := 1 to ParamCount do
  begin
    if CompareText(ParamStr(I), '/' + Name) = 0 then
    begin
      Result := True;
      Break;
    end;
  end;
end;

function install1: Boolean;
begin
  Result := HasCommandLineSwitch('install1');
end;

function porta1: Boolean;
begin
  Result := HasCommandLineSwitch('porta1');
end;

你可以用 HasCommandLineSwitch Check 参数:

[Files]
Source: "Portable-File.exe"; DestDir: "{app}"; Check: HasCommandLineSwitch('install1')
Source: "Installer-File.exe"; DestDir: "{app}"; Check: HasCommandLineSwitch('porta1')

虽然我认为你的 安装1 函数实际上不仅仅是调用 HasCommandLineSwitch命令 ,所以这可能不适用于您。

安装1 和 端口1 ,您真正想做的是,在安装程序启动时,如果指定了开关,则选中这些复选框。这样你就可以使用 /install1 和 /porta1 /verysilent . 即使在未来的几年里,它仍然可以工作 /非常宽松

install1 := TNewRadioButton.Create(WizardForm); 
install1.Checked := HasCommandLineSwitch('install1');

porta1 := TNewRadioButton.Create(WizardForm); 
porta1.Checked := HasCommandLineSwitch('porta1');

你要保持你的健康 和 函数返回复选框的状态,如中所示 Inno Setup Set Uninstallable directive based on custom checkbox value