Inno Setup 多版本选择安装页面实现教程

{"Setup":{"AppName":"MyApp","AppVersion":"1.0","DefaultDirName":"{pf}\MyApp"},"Files":{"Source":"MyApp_v1.0.exe","DestDir":"{app}","Components":"MyApp_v1","Source":"MyApp_v2.0.exe","DestDir":"{app}","Components":"MyApp_v2"},"Components":{"Name":"MyApp_v1","Description":"MyApp Version 1.0","Name":"MyApp_v2","Description":"MyApp Version 2.0"},"Code":{"var":{"SelectedVersion":"string"},"procedure InitializeWizard":{"var":{"Page":"TWizardPage","ComboBox":"TNewComboBox"},"begin":{"Page := CreateCustomPage(wpSelectComponents, 'Select Version', 'Please select the version you want to install.');","ComboBox := TNewComboBox.Create(WizardForm);","ComboBox.Parent := Page.Surface;","ComboBox.Left := 0;","ComboBox.Top := ScaleY(24);","ComboBox.Width := Page.SurfaceWidth;","ComboBox.Style := csDropDownList;","ComboBox.Items.Add('MyApp Version 1.0');","ComboBox.Items.Add('MyApp Version 2.0');","ComboBox.OnChange := @ComboBoxChange;","ComboBox.ItemIndex := 0;","SelectedVersion := ComboBox.Items[0];"},"end"},"procedure ComboBoxChange":{"Sender":"TObject","begin":{"SelectedVersion := TNewComboBox(Sender).Text;"},"end"},"function ShouldInstallFile":{"FileName":"string","begin":{"Result := (SelectedVersion = 'MyApp Version 1.0') and (CompareText(ExtractFileName(FileName), 'MyApp_v1.0.exe') = 0) or (SelectedVersion = 'MyApp Version 2.0') and (CompareText(ExtractFileName(FileName), 'MyApp_v2.0.exe') = 0);"},"end"}}