添加到防火墙例外列表

我得到了下面提到的代码，用于将我的应用程序添加到 Windows 防火墙例外列表。 我想知道这是否也适用于其他防火墙，例如：防病毒防火墙等。 如果没有，请提出解决方案。 注意：我的应用程序以管理员权限运行，但我的用户无法理解quickheal等的防火墙设置。我使用Delphi 2007（Win32）。

这是我第一次使用这个论坛。如有错误请原谅+纠正。

问候 艾伦·费尔南德斯

procedure AddApplicationToFirewall(EntryName:string;ApplicationPathAndExe:string);
var
  fwMgr,app:OleVariant;
  profile:OleVariant;
begin
  fwMgr := CreateOLEObject('HNetCfg.FwMgr');
  profile := fwMgr.LocalPolicy.CurrentProfile;
  app := CreateOLEObject('HNetCfg.FwAuthorizedApplication');
  app.ProcessImageFileName := ApplicationPathAndExe;
  app.Name := EntryName;
  app.Scope := NET_FW_SCOPE_ALL;
  app.IpVersion := NET_FW_IP_VERSION_ANY;
  app.Enabled :=true;
  profile.AuthorizedApplications.Add(app);
end;

@Allan，您的代码仅适用于 Windows 防火墙或使用 Windows 防火墙例外列表的防火墙。

不幸的是，没有向第三方防火墙添加例外的标准方法，因为大多数第三方防火墙都使用自己的方法来处理例外和访问规则。