delphi实现穿XP防火墙
来源:互联网 发布:s软件开发2 编辑:程序博客网 时间:2024/04/29 21:59
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.ProcessImageFileName := Application.ExeName; //要通过的程序
FwApp.Enabled := true;
Profile.AuthorizedApplications.Add(FwApp);
end;
这样,你的软件就能通过XP的防火墙了,不会再有拦截提示了!
原文:http://blog.sina.com.cn/s/blog_6016bdc80100dhbj.html
- delphi实现穿XP防火墙
- delphi 程序通过xp防火墙
- 在XP下oracle端口穿防火墙问题
- tomcat jmx穿防火墙
- 以前的笔记或摘录:delphi关闭XP防火墙
- Delphi让你的程序通过XP防火墙
- delphi 穿件自定义消失
- Delphi 7 下实现XP风格(转)
- 转:新的穿防火墙技术
- 无DLL 穿防火墙下载者
- Windows XP中防火墙后如何实现共享
- 禁用xp防火墙
- 无法启动xp防火墙
- xp windows防火墙
- Delphi 7 下自动实现 xp 风格的简单办法
- WINDOWS XP防火墙深层探索
- 命令行配置Windows XP防火墙
- XP自带防火墙删除
- 用户管理
- 梦想十年
- 一群猴子排成一圈
- 一天天过得很快啊,今天大家都干了啥?我们拿出来晒晒
- 使用ClassHelper/record helper 给类“打补丁”
- delphi实现穿XP防火墙
- C# Winform利用POST传值方式模拟表单提交数据(Winform与网页交互)
- 实现.net伪静态
- 搞定fckeditor自动分文件夹(.net)
- PowerTalkBox和飞信结合搞定在线客户端(.net)
- 一个完整的大型软件项目经验是非常宝贵的,大家遇到这样的机会要学会把握好机会
- Win7系统一打开文件就自动重启桌面
- 为什么我们做一个软件项目,就要折腾个一年半载的,客户被折磨得死去活来,我们自己也被折磨得死去活来
- hdu 1178 Heritage from father