Delphi 7 实现穿XP防火墙

//自动通过放火墙开始 FwMgr := CreateOLEObject('HNetCfg.FwMgr'); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication'); FwApp.Name :='我的通过防火墙程序'; //显示通过程序的名字 FwApp.ProcessImageFileName := Application.ExeName; //要通过的程序 FwApp.Enabled:= true; Profile.AuthorizedA