delphi如何过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的防火墙了，不会再有拦截提示了！ 
 

相关阅读 >>

用Delphi编写涂鸦桌面的小程序

Delphi调用rest

Delphi hmacsha256

Delphi窗口界面必学的知识

Delphi 通过程序窗体句柄获取程序路径

Delphi if语法,弹出提示框,不等于写法,判断是否为空

Delphi fmx jpg 保存数据库 从数据库读取

Delphi下获取ie的useragent的方法

Delphi 如何从文本内容中删除指定行

Delphi 生成xml 方法 与 Delphi txt文件操作

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi如何过XP的防火墙而不被拦截