添加到防火墙例外列表

我下面提到的代码将我的应用程序添加到Windows防火墙例外列表。 我想知道这是否也适用于其他防火墙,如:防病毒防火墙等。如果不是,那么请build议一个解决scheme。 注意:我的应用程序正在运行pipe理员权限,但我的用户不能够了解防火墙设置fastheal等我使用Delphi 2007(Win32)。

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

问候Allan Fernandes

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; 

Solutions Collecting From Web of "添加到防火墙例外列表"

@Allan,你的代码只适用于windows防火墙或防火墙,这些防火墙使用Windows防火墙例外列表。

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