InnoSetup，如果选择了任何任务，则阻止安装

Question

我的 inno 脚本有两个任务：

[Tasks]
Name: client; Description: Install FTP client
Name: server; Description: Install FTP server

如果选择了任何任务，我想以非侵入性方式拒绝安装，对于非侵入性，我的意思是例如在选中两个任务之一时启用/禁用“下一步”按钮，没有广告消息be-盒子。

我不确定 innosetup 是否有一个参数或“检查”函数可以以简单的方式执行此操作

我该怎么做？

Answer 1

在 Inno Setup 中，本机无法做你想做的事。您需要自己从代码中完成。

您可以在这里使用WizardSelectedTasks 函数作弊。此函数返回一个逗号分隔的选定任务名称（或描述）列表，因此当没有选择任务时它返回一个空字符串。剩下的就是绑定任务列表OnClickCheck事件，更新next按钮启用状态，写一段代码初始化next按钮状态：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Tasks]
Name: client; Description: Install FTP client
Name: server; Description: Install FTP server

[Code]
// helper function
function IsAnyTaskSelected: Boolean;
begin
  Result := WizardSelectedTasks(False) <> '';
end;

// event handler for setting the next button initial state when
// entering the tasks page
procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectTasks then
    WizardForm.NextButton.Enabled := IsAnyTaskSelected;
end;

// method of the task list check click event
procedure TasksListClickCheck(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := IsAnyTaskSelected;
end;

procedure InitializeWizard;
begin
  WizardForm.TasksList.OnClickCheck := @TasksListClickCheck;
end;