2012年10月9日
让你的程序通过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.Process 阅读全文
posted @ 2012-10-09 14:33 Handll 阅读(297) 评论(0) 推荐(0)