如何只允许在InnoSetup中安装特定组件？

Question

所以问题是:我在这里问了一个问题:如何只允许安装到特定的文件夹？

如何修改它,例如,我有3个文件要安装,其中2个是可选的,如果存在某个文件/文件夹,应该只能安装.如果条件不满足,我想在列表中选择它们的灰色选项？

先感谢您.索尔特

Answer 1

我会尝试做以下事情.它将访问组件列表项,通过它们的索引禁用和取消选中它们,从该[Components]部分的顺序开始从0开始的数字是多少.fixed默认情况下,启用了没有标志的项目(如本例所示),因此您需要检查是否未满足条件.你也可以查看commented version这篇文章的内容:

[Components]
Name: Component1; Description: Component 1
Name: Component2; Description: Component 2
Name: Component3; Description: Component 3

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectComponents then
    if not SomeCondition then
    begin
      WizardForm.ComponentsList.Checked[1] := False;
      WizardForm.ComponentsList.ItemEnabled[1] := False;
      WizardForm.ComponentsList.Checked[2] := False;
      WizardForm.ComponentsList.ItemEnabled[2] := False;
    end;
end;

上述解决方案至少有一个缺点.[Components]当您将其设置ComponentsList.Sorted为True 时,索引可能会从该部分的原始顺序中拖曳.如果你不
使用它,可能就足够使用上面的代码,如果是的话,那就更复杂了.

没有简单的方法来获取组件名称(它在内部存储为每个项目TSetupComponentEntry中的对象ItemObject),只有描述,所以这里是另一种方法来执行相同的操作,区别在于它们的描述正在搜索项目索引指定.

procedure CurPageChanged(CurPageID: Integer);
var
  Index: Integer;
begin
  if CurPageID = wpSelectComponents then
    if not SomeCondition then
    begin
      Index := WizardForm.ComponentsList.Items.IndexOf('Component 2');
      if Index <> -1 then
      begin
        WizardForm.ComponentsList.Checked[Index] := False;
        WizardForm.ComponentsList.ItemEnabled[Index] := False;
      end;
      Index := WizardForm.ComponentsList.Items.IndexOf('Component 3');
      if Index <> -1 then
      begin
        WizardForm.ComponentsList.Checked[Index] := False;
        WizardForm.ComponentsList.ItemEnabled[Index] := False;
      end;
    end;
end;