要求用户提供应用程序的版本，以便使用Inno安装程序修改和更改安装文件夹

Question

我正在尝试使用Inno安装程序来为DCS安装一些自定义皮肤。我想询问用户他们安装的DCS版本(并且可能首先检查注册表或文件路径，以查看是否安装了多个版本)，然后要求用户选择他们想要安装的版本。

或者，可能是所有的人。

例如，如果安装了DCS、DCS Beta和DCS蒸汽，则提供复选框以安装所有这些系统，或只提供一个复选框。

或者如果比较容易的话，只是一开始的径向选择..。是否有人可以帮助使用Inno安装程序的代码部分，或者建议如何从代码部分设置变量？

Answer 1

为所选内容创建自定义页面(例如使用CreateInputOptionPage)。当用户单击其Next按钮时，相应地更新目标目录。

[Code]
var
  VersionSelectionPage: TInputOptionWizardPage;
  
procedure InitializeWizard();
begin
  VersionSelectionPage :=
    CreateInputOptionPage(wpInfoBefore, 'Version selection', '', '', True, False);
  VersionSelectionPage.Add('1.0');
  VersionSelectionPage.Add('2.0');
  VersionSelectionPage.Add('3.0');
  VersionSelectionPage.SelectedValueIndex := 0;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  Dir: string;
begin
  if CurPageID = VersionSelectionPage.ID then
  begin
    case VersionSelectionPage.SelectedValueIndex of
      0: Dir := ExpandConstant('{pf}\My Program v1');
      1: Dir := ExpandConstant('{pf}\My Program v2');
      2: Dir := ExpandConstant('{pf}\My Program v3');
      else RaiseException('Unexpected selection');
    end;
    WizardForm.DirEdit.Text := Dir;
  end;
  Result := True;
end;