Inno Setup如何根据向导页选项来选择性安装目录

我们的软件为了适配不同的客户群体，有时需要做成多套配置，让客户根据自身需求进行选择安装。

选择性安装首先我们要创建一个自己的页面，这个可以参考我的另一篇博客，教怎么创建界面的。
现在我们直接声明对应的方法。

响应用户选项方法

var IsChooseOne: Boolean;
procedure RadioButtonClick(Sender: TObject);  // radio框事件响应函数,参数必须为此类型
begin
  if (RadioButton1.Checked = True) then		// 选择一
  	begin
      IsChooseOne := True;
  	end else begin								// 选择二
  	  IsChooseOne := False;
    end
end;

这个方法在点击选择框的时候调用，然后把我们当前选择的内容赋值给一个变量IsChooseOne备用。

声明一个方法获取用户选择的配置值

function CheckIsChooseOne(): Boolean;
begin
Result := True;
end;

这方法是在安装进程中调用执行的

选择安装代码

[Files]
Source: "C:\Users\Administrator\AppData\Local\Programs\Inno Setup 6\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\study\setup\xiaohuanxiong\*";Excludes: "\part1,\part2"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "E:\study\setup\xiaohuanxiong\part1\*";DestDir: "{app}\part1"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckIsChooseOne;
Source: "E:\study\setup\xiaohuanxiong\part2\*";DestDir: "{app}\part2"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: not CheckIsChooseOne;

代码中先要把需要做选择的代码进行筛选出来，使用Excludes参数，比如根目录下的part1和part2文件夹，注意，排除的文件目录不能使用和Source一样的觉得路径，不然不会失效，写的格式为可以参考官网描述： “ foo \ bar”将同时排除“ foo \ bar”和“ subdir \ foo \ bar”。 “ \ foo \ bar”将仅排除“ foo \ bar”。

Source: “E:\study\setup\xiaohuanxiong*”;Excludes: “\part1,\part2”; DestDir: “{app}”; Flags: ignoreversion recursesubdirs createallsubdirs

然后将需要安装的文件目录进行选择，主要是一下两行代码，其中关键是Check，绑定了CheckIsChooseOne函数，返回True则，执行安装，返回False，则不安装。

Source: “E:\study\setup\xiaohuanxiong\part1*”;DestDir: “{app}\part1”; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckIsChooseOne;
Source: “E:\study\setup\xiaohuanxiong\part2*”;DestDir: “{app}\part2”; Flags: ignoreversion recursesubdirs createallsubdirs; Check: not CheckIsChooseOne;