Question

默认情况下，在组件页面上，Inno Setup会将所有文件的大小添加到所选组件的大小（显示在页面底部）。

现在，我特别需要Inno Setup，要求与当前组件的大小完全相同。我怎样才能做到这一点？

新代码：

[Setup]
AppName=Dagon Video Tools
AppVersion=1.0
AppVerName=Dagon Video Tools
DefaultDirName={sd}\Tools\Dagon Video Tools
VersionInfoProductName=Dagon Video Tools
WizardImageFile=Include\WizardImage.bmp
WizardSmallImageFile=Include\WizardSmallImage.bmp
SetupIconFile=Include\Icon.ico

[Files]
.....

[ThirdParty]
UseRelativePaths=True

[Components]
Name: "Slasher"; Description: "Dagon Slasher"; Types: Slasher Full
Name: "Frankenstein"; Description: "Dagon Frankenstein"; Types: Frankenstein Full

[Types]
Name: "Full"; Description: "Full"
Name: "Slasher"; Description: "Dagon Slasher"
Name: "Frankenstein"; Description: "Dagon FrankenStein"

[Icons]
Name: "{group}\{cm:UninstallProgram,Dagon Slasher}"; Filename: "{uninstallexe}"; Components: Slasher
Name: "{group}\{cm:UninstallProgram,Dagon Frankenstein}"; Filename: "{uninstallexe}"; Components: Frankenstein
Name: "{group}\{cm:UninstallProgram,Dagon Video Tools}"; Filename: "{uninstallexe}"; Components: Slasher and Frankenstein


[Code]
procedure CurPageChanged(CurPageID: Integer);
Begin
if (CurPageID=wpSelectProgramGroup) then
  begin
  if IsComponentSelected('Slasher') then
    begin
      WizardForm.DirEdit.Text := ExpandConstant('{sd}\Tools\Dagon Slasher');
      WizardForm.GroupEdit.Text := 'Dagon Slasher';
    end;
  if IsComponentSelected('Frankenstein') then
    begin
      WizardForm.DirEdit.Text := ExpandConstant('{sd}\Tools\Dagon FrankenStein');
      WizardForm.GroupEdit.Text := 'Dagon FrankenStein';
    end;
  if IsComponentSelected('Slasher') and IsComponentSelected('Frankenstein') then
    begin
      WizardForm.GroupEdit.Text := 'Dagon Video Tools';
    end
  end;
End;

procedure OnTypeChange(Sender: TObject);
begin
  // set the item index in hidden TypesCombo
  WizardForm.TypesCombo.ItemIndex := TNewCheckListBox(Sender).ItemIndex;
  // notify TypesCombo about the selection change
  WizardForm.TypesCombo.OnChange(nil);
end;

procedure InitializeWizard;
var
  I: Integer;
  CheckListBox: TNewCheckListBox;
begin
  // create the TNewCheckListBox object and set the basic properties
  CheckListBox := TNewCheckListBox.Create(WizardForm);
  CheckListBox.Parent := WizardForm.SelectComponentsPage;
  CheckListBox.Left := WizardForm.TypesCombo.Left;
  CheckListBox.Top := WizardForm.TypesCombo.Top;
  CheckListBox.Width := WizardForm.TypesCombo.Width;
  CheckListBox.Height := CheckListBox.MinItemHeight * 
    WizardForm.TypesCombo.Items.Count + 4;
  CheckListBox.TabOrder := 0;
  // assign the selection change event
  CheckListBox.OnClickCheck := @OnTypeChange;
  // add radio buttons from all TypesCombo items, select the first item
  for I := 0 to WizardForm.TypesCombo.Items.Count - 1 do
    CheckListBox.AddRadioButton(WizardForm.TypesCombo.Items[I], 
      '', 0, I = 0, True, nil);
  // hide the TypesCombo combo box
  WizardForm.TypesCombo.Visible := False;
  WizardForm.ComponentsList.Visible := False;
  WizardForm.ComponentsDiskSpaceLabel.Visible := True;
end;

发布完整代码，因为正如您所看到的，我的代码会根据组件更改{app}和{group}。我现在必须去上班，所以我将在下半天离线。这段代码似乎显示了正确的文件大小，我打算使用附加到组件选择的其他一些功能，所以，如果这样做，我将不得不发布另一个问题。回来约8个小时。

Answer 1

您正在错误地使用安装组件。您的＆＃34;完整包＆＃34; 组件不是组件。它是两个组件的组合（＆＃34;第1部分＆＃34; + ＆＃34;第2部分＆＃34; ）。因此，内置的Inno Setup逻辑与您的安装程序不匹配，现在您要求如何解决这个问题。不要试图解决这个问题，而是正确使用Inno Setup。

你想要的是两个组成部分：

第1部分
第2部分

和三种设置类型：

完整包（同时安装＆＃34;第1部分＆＃34; 和＆＃34;第2部分＆＃34; 组件）
第1部分（仅安装＆＃34;第1部分＆＃34; 组件）
第2部分（仅安装＆＃34;第2部分＆＃34; 组件）

如果您使用组件而不是类型，因为您喜欢＆＃34;单选按钮＆＃34;选择多于组合框（下拉菜单），请参阅Replace installation types Dropdown list by radio buttons。

通过这种方式，您可以获得与屏幕截图相同的GUI，但工作正常。

在您的情况下，显示组件列表可能没有意义。确保没有类型具有iscustom标记以隐藏组件列表，并确保它选择正确的组件（iscustom类型不选择其组件）。

如果您想要显示尺寸标签，请明确显示：

procedure InitializeWizard();
begin
  WizardForm.ComponentsDiskSpaceLabel.Visible := True;
end;

如果您想显示没有自定义类型的组件列表：

procedure InitializeWizard();
begin
  WizardForm.ComponentsList.Visible := True;
  WizardForm.ComponentsDiskSpaceLabel.Visible := True;
end;

Inno设置 - 按组件定义磁盘空间

1 个答案: