让你的程序通过XP防火墙

把以下代码加入到程序的启动中，就可以让程序通过xp防火墙，而不再有拦截提示。

需要引用单元：ComObj

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防火墙的例外中有记录，并自动打勾。