Inno Setup：如何在[Code]节中使用传入的预处理器指令？

嘿，这个问题我碰过好多次了——你说的没错，就是个容易忽略的小细节：通过/D参数传入的预处理器变量，没法直接在[Code]节里直接引用，得用两种不同的方式来处理，具体看你的需求：

方法1：预处理器注入（适合编译前确定变量值的场景） #

如果你的MYVAR值是在编译安装包时通过/D传入的，那可以直接用预处理器的语法把变量值插入到[Code]节中，写法很简单：

procedure InitializeWizard();
begin
  // 用{#变量名}的格式引用预处理器变量
  MsgBox('MYVAR的当前值是：' + '{#MYVAR}', mbInformation, MB_OK);
end;

编译的时候，预处理器会自动把{#MYVAR}替换成你传入的1，运行时就能正常显示了。不过要注意：这种方式是编译时替换，如果安装包已经编译完成，再用/D传参数就没用了——因为值已经固定在编译后的安装包里了。

方法2：运行时读取命令行参数（适合已编译安装包动态传参） #

要是你需要给已经编译好的安装包动态传/DMYVAR=1，那得在[Code]节里自己解析命令行参数。我通常会写个小工具函数来做这件事：

// 自定义函数：根据参数名读取命令行中的/D参数值
function GetCmdLineParam(const ParamName: string): string;
var
  I: Integer;
  ParamStrValue: string;
begin
  Result := '';
  // 遍历所有命令行参数
  for I := 1 to ParamCount do
  begin
    ParamStrValue := ParamStr(I);
    // 检查参数是否以 /D参数名= 开头（忽略大小写）
    if (Length(ParamStrValue) >= Length(ParamName) + 3) and 
       (CompareText(Copy(ParamStrValue, 2, Length(ParamName)), ParamName) = 0) and
       (ParamStrValue[Length(ParamName) + 2] = '=') then
    begin
      // 提取等号后面的内容
      Result := Copy(ParamStrValue, Length(ParamName) + 3, MaxInt);
      Break;
    end;
  end;
end;

// 示例：在InitializeWizard里使用
procedure InitializeWizard();
var
  MyVarValue: string;
begin
  MyVarValue := GetCmdLineParam('MYVAR');
  if MyVarValue = '1' then
  begin
    MsgBox('检测到命令行传入的MYVAR=1，执行对应逻辑', mbInformation, MB_OK);
    // 在这里添加你的自定义代码逻辑
  end;
end;

这个函数会遍历所有命令行参数，找到匹配/DMYVAR=格式的参数，然后提取后面的值。好处是不管安装包什么时候编译的，只要运行时传了参数就能读到。

关键注意点 #

• 预处理器方法是编译时生效，运行时方法是动态读取，根据你的使用场景选对方法就行；
• 默认情况下命令行参数不区分大小写，如果你需要严格区分，可以把函数里的CompareText改成CompareStr。

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