节
春
度
欢
2016年3月31日
让你的程序通过XP防火墙
摘要： procedure TForm1.Button1Click(Sender: TObject); var FwMgr,Profile,FwApp: variant; begin FwMgr := CreateOLEObject('HNetCfg.FwMgr'); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := Create... 阅读全文
posted @ 2016-03-31 13:58 今心 阅读(259) 评论(0) 推荐(0) 编辑