我来帮你解决这两个Inno Setup的问题，一步步说清楚：

要在VERYSILENT模式下运行你的Inno Setup安装包，直接在命令行里执行以下命令即可：

mysetup.exe /VERYSILENT

如果需要同时指定主程序的安装目录，加上/DIR参数就行：

mysetup.exe /VERYSILENT /DIR="C:\Your\App\Installation\Path"

等我们修改完代码后，还可以扩展命令行参数来指定Java路径，后面会详细说明。

我直接给你修改好的完整代码，再逐个解释改动点，保证满足你的需求：

#define AppName "My App"

[Setup]
AppName={#AppName}
AppVersion=1
DefaultDirName={code:GetInstallDir}\{#AppName}
; 启用默认的目录选择页，让用户能直观设置主程序路径
DisableDirPage=no
; 明确启用自带的组件选择页
DisableComponentsPage=no

[Components]
; 定义两个可选组件，用户可以勾选任意组合
Name: "component1"; Description: "Component1"; Types: full compact custom
Name: "component2"; Description: "Component2"; Types: full compact custom

[Files]
; 示例：给组件关联对应的安装文件（按需修改实际路径）
; Source: "component1_files\*"; DestDir: "{app}\component1"; Components: component1
; Source: "component2_files\*"; DestDir: "{app}\component2"; Components: component2

[Code]
#include 'System.iss'
var
  JavaDirPage: TInputDirWizardPage;

function GetInstallDir(Value: string): string;
begin
  // 保留你原来的自定义目录逻辑，默认返回系统程序文件目录
  Result := ExpandConstant('{pf}');
end;

procedure InitializeWizard;
begin
  // 创建Java目录选择页，放在组件选择页之后，流程更合理
  JavaDirPage := CreateInputDirPage(wpSelectComponents, 'Java路径设置', '', '请指定Java的安装目录:', False, '');
  JavaDirPage.Add('Java目录');
  
  // 读取命令行传入的Java路径参数
  if CmdLineParamExists('/JAVADIR') then
    JavaDirPage.Values[0] := GetCmdLineParam('/JAVADIR');
end;

// 辅助函数：检查命令行是否存在指定参数
function CmdLineParamExists(const ParamName: string): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := 1 to ParamCount do
    if CompareText(ParamStr(I), ParamName) = 0 then
    begin
      Result := True;
      Break;
    end;
end;

// 辅助函数：获取命令行参数的值（自动处理引号）
function GetCmdLineParam(const ParamName: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to ParamCount do
  begin
    if (CompareText(Copy(ParamStr(I), 1, Length(ParamName)), ParamName) = 0) and
       (Length(ParamStr(I)) > Length(ParamName)) then
    begin
      Result := Copy(ParamStr(I), Length(ParamName) + 1, MaxInt);
      Result := Trim(Result);
      // 去掉参数值的首尾引号（如果存在）
      if (Length(Result) >= 2) and (Result[1] = '"') and (Result[Length(Result)] = '"') then
        Result := Copy(Result, 2, Length(Result) - 2);
      Break;
    end;
  end;
end;

改动说明： #

针对「允许指定Java路径」的需求：

1. 删掉了原来的DisableDirPage=yes，保留Inno Setup自带的主目录选择页，用户既可以手动修改主程序路径，也能继续使用原有的/DIR命令行参数
2. 新增了JavaDirPage专门用于选择Java路径，放在组件选择页之后，安装流程更顺畅
3. 添加了命令行参数处理函数，支持用/JAVADIR参数指定Java路径，比如：

   mysetup.exe /DIR="C:\test" /JAVADIR="C:\Program Files\Java\jdk1.8"
   

   静默模式下也能生效：

   mysetup.exe /VERYSILENT /DIR="C:\test" /JAVADIR="C:\Program Files\Java\jdk1.8"
   

针对「允许选择Component1/Component2任意组合」的需求：

1. 新增了[Components]段，定义两个独立组件，用户可以在安装向导的组件选择页自由勾选——支持选一个、两个都选，甚至都不选（如果需要强制选至少一个，可以给组件加Flags: exclusive，但按你的需求不用加）
2. 删掉了原来手动创建的UsagePage，因为Inno Setup自带的组件选择页完全满足需求，不需要重复造轮子
3. 在[Files]段示例了如何给组件关联文件，只有勾选对应组件时，该组件的文件才会被安装

如果需要在代码中判断用户选了哪些组件，可以用IsComponentSelected('component1')或者IsComponentSelected('component2')来获取状态。

内容的提问来源于stack exchange，提问作者MajdAlo