delphi实现穿XP防火墙

最新推荐文章于 2018-12-04 10:35:19 发布

最新推荐文章于 2018-12-04 10:35:19 发布 · 113 阅读

文章标签：

#防火墙 #XP #Delphi #软件测试 #Blog

本文提供了一段VBScript代码示例，通过创建HNetCfg.FwMgr对象并设置相关属性，实现应用程序自动通过Windows XP防火墙而不再弹出拦截提示。

procedure TForm1.Button1Click(Sender: TObject);
var
FwMgr,Profile,FwApp: variant;
begin
FwMgr := CreateOLEObject('HNetCfg.FwMgr');
Profile := FwMgr.LocalPolicy.CurrentProfile;
FwApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication');
FwApp.Name :='我的测试'; //显示名字
FwApp.ProcessImageFileName := Application.ExeName; //要通过的程序
FwApp.Enabled:= true;
Profile.AuthorizedApplications.Add(FwApp);
end;

这样，你的软件就能通过XP的防火墙了，不会再有拦截提示了！

原文：http://blog.sina.com.cn/s/blog_6016bdc80100dhbj.html