線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1957
推到 Plurk!
推到 Facebook!

如何使用程式加入防火牆倒外清單

答題得分者是:leveon
blue
中階會員


發表:170
回覆:136
積分:81
註冊:2002-04-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2015-01-12 11:23:00 IP:122.146.xxx.xxx 訂閱
Hi,各位先進大家好: Sorry,因之前不小心結案了.... 因需讓程式可以通過防火牆, 小弟使用如下程式, 是順利在防火牆的例外清單加入了, 但是,卻只有公用的部份打勾, 私人的部份未打勾, 請問,如何讓私人及公用的部份都能打勾? 小弟目前使用 Netsh firewall add方式處理,但看 Netsh訊息,似乎未來會改寫法 謝謝!
Const
NET_FW_IP_VERSION_ANY = 2;
NET_FW_SCOPE_ALL = 0;
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 :='Firewall_TEST';
FwApp.ProcessImageFileName := 'C:\Temp\Test.exe'; //要通過的程序
FwApp.Scope := NET_FW_SCOPE_ALL;
FwApp.IpVersion := NET_FW_IP_VERSION_ANY;
FwApp.Enabled := True;
Profile.AuthorizedApplications.Add(FwApp);
end;
 
leveon
資深會員


發表:30
回覆:389
積分:303
註冊:2012-02-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2015-01-12 14:20:51 IP:1.161.xxx.xxx 訂閱
blue
中階會員


發表:170
回覆:136
積分:81
註冊:2002-04-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2015-01-13 10:13:41 IP:122.146.xxx.xxx 訂閱
感謝 leveon 大大的指導,
但,小弟需要的是 開放整個程式,
謝謝!

===================引 用 leveon 文 章===================
這google一下就有了吧
http://stackoverflow.com/questions/20066467/how-to-open-port-in-win7-firewall-using-delphi
leveon
資深會員


發表:30
回覆:389
積分:303
註冊:2012-02-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2015-01-13 16:03:26 IP:1.161.xxx.xxx 訂閱

http://stackoverflow.com/questions/9180348/delphi-7-windows-vista-7-firewall-exception-network-locations

隨便找範例都一堆吧



===================引 用 blue 文 章===================
感謝 leveon 大大的指導,
但,小弟需要的是 開放整個程式,
謝謝!

===================引 用 leveon 文 章===================
這google一下就有了吧
http://stackoverflow.com/questions/20066467/how-to-open-port-in-win7-firewall-using-delphi
系統時間:2024-07-04 12:27:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!