//自动通过放火墙开始
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); //其实就是把自己加入到防火墙的例外中
//自动通过放火墙开始结束