Inno Setup中从过程调用函数报错：未知标识符SetFirewallPortException

这个问题的核心原因是PascalScript（Inno Setup 使用的脚本语言）要求在调用一个过程/函数之前，必须先让编译器知道它的存在。你当前的代码里，CallAddPortException过程定义在SetFirewallPortException前面，当编译器处理CallAddPortException时，还没读到SetFirewallPortException的定义，所以会抛出"Unknown Identifier"错误。

同时我还注意到你调用函数时的一个语法错误：参数之间用了分号;，Pascal里参数分隔应该用逗号,，这个也会导致编译失败，我会一起帮你修正。

下面提供两种可行的解决方案：

方案1：调整过程定义顺序 #

把SetFirewallPortException移到CallAddPortException前面，这样编译器在处理CallAddPortException时已经知道这个函数的存在：

// 先定义被调用的过程
procedure SetFirewallPortException(AppName: string; Protocol, Port: integer);
var
  FirewallObject: Variant;
  FirewallManager: Variant;
  FirewallProfile: Variant;
begin
  try
    FirewallObject := CreateOleObject('HNetCfg.FwOpenPort');
    FirewallObject.Name := AppName;
    FirewallObject.Scope := NET_FW_SCOPE_ALL;
    FirewallObject.IpVersion := NET_FW_IP_VERSION_ANY;
    FirewallObject.Protocol := Protocol;
    FirewallObject.Port := Port;
    FirewallObject.Enabled := True;

    FirewallManager := CreateOleObject('HNetCfg.FwMgr');
    FirewallProfile := FirewallManager.LocalPolicy.CurrentProfile;
    FirewallProfile.GloballyOpenPorts.Add(FirewallObject);
  except
  end;
end;

// 再定义调用它的过程
procedure CallAddPortException(Value: string);
begin
  // 修正参数分隔符为逗号
  SetFirewallPortException('MysqlPort', NET_FW_PROTOCOL_TCP, 3311);
end;

方案2：使用前置声明（Forward） #

如果不想调整代码顺序，可以用forward关键字先声明SetFirewallPortException的原型，告诉编译器这个过程后续会定义：

// 前置声明SetFirewallPortException的原型
procedure SetFirewallPortException(AppName: string; Protocol, Port: integer); forward;

procedure CallAddPortException(Value: string);
begin
  SetFirewallPortException('MysqlPort', NET_FW_PROTOCOL_TCP, 3311);
end;

// 后续再实现这个过程
procedure SetFirewallPortException(AppName: string; Protocol, Port: integer);
var
  FirewallObject: Variant;
  FirewallManager: Variant;
  FirewallProfile: Variant;
begin
  try
    FirewallObject := CreateOleObject('HNetCfg.FwOpenPort');
    FirewallObject.Name := AppName;
    FirewallObject.Scope := NET_FW_SCOPE_ALL;
    FirewallObject.IpVersion := NET_FW_IP_VERSION_ANY;
    FirewallObject.Protocol := Protocol;
    FirewallObject.Port := Port;
    FirewallObject.Enabled := True;

    FirewallManager := CreateOleObject('HNetCfg.FwMgr');
    FirewallProfile := FirewallManager.LocalPolicy.CurrentProfile;
    FirewallProfile.GloballyOpenPorts.Add(FirewallObject);
  except
  end;
end;

额外注意事项 #

确保你已经定义了防火墙API相关的常量，Inno Setup默认不包含这些，需要手动添加在代码开头：

const
  NET_FW_PROTOCOL_TCP = 6;       // TCP协议对应的数值
  NET_FW_SCOPE_ALL = 0;          // 允许所有远程IP
  NET_FW_IP_VERSION_ANY = 2;     // 支持IPv4和IPv6

内容的提问来源于stack exchange，提问作者Oghenero E.