delphi实现穿XP防火墙
2016-04-15 00:04
603 查看
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
http://blog.csdn.net/nhconch/article/details/6022739
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
http://blog.csdn.net/nhconch/article/details/6022739
相关文章推荐
- Delphi中使用python脚本读取Excel数据
- Delphi版 环形无锁缓冲
- Delphi 10.1 柏林更新内容简译
- Delphi 给结构体指针分配内存,用new(p),释放用dispose(p)
- Delphi MDI程序 父窗体如何调用当前活动子窗体的函数/过程
- Delphi中实现MDI子窗体(转)
- Delphi动态调用C++写的DLL
- Delphi exe + bpl 简述
- delphi 712 Word 2
- Delphi版本号对照
- Delphi 的运算符列表
- Delphi exe动态调用加载bpl 报地址错误的解决方法
- delphi bpl插件系统开发(转)
- Delphi指针相关的操作符
- Delphi调用动态库
- Delphi RxRichEdit高级操作
- delphi 怎么把image上的图片粘贴到剪切板上
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- Delphi 保存写字板程序, 并进行打印
- Delphi中使用GDI+进行绘图(2)