windows - 添加到防火墙异常(exception)列表

Question

我得到了下面提到的用于将我的应用程序添加到 Windows 防火墙异常(exception)列表的代码。我想知道这是否也适用于其他防火墙，例如:防病毒防火墙等。如果没有，请提出解决方案。注意:我的应用程序以管理员权限运行，但我的用户无法理解 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;

Answer 1

@Allan，您的代码仅适用于 Windows 防火墙或使用 Windows 防火墙异常(exception)列表的防火墙。

不幸的是，没有向第三方防火墙添加异常(exception)的标准方法，因为其中大多数使用自己的方法来处理异常(exception)和访问规则。