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