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

如何加入防火牆例外,WIN7?

缺席
chris681016
中階會員


發表:64
回覆:117
積分:96
註冊:2006-10-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-02-06 11:12:41 IP:211.75.xxx.xxx 訂閱
 如題如何加入防火牆例外,WIN7?
已參考過 http://msdn.microsoft.com/en-us/library/aa366421.aspx

是會發生存取被拒。

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 :='Delphi5_TEST';
FwApp.ProcessImageFileName := 'E:\test.exe'; //要通過的程序
FwApp.Scope := NET_FW_SCOPE_ALL;
FwApp.IpVersion := NET_FW_IP_VERSION_ANY;
FwApp.Enabled := True;
Profile.AuthorizedApplications.Add(FwApp);
end;
編輯記錄
chris681016 重新編輯於 2012-02-05 20:14:30, 註解 無‧
chris681016 重新編輯於 2012-02-05 20:31:55, 註解 無‧
chris681016
中階會員


發表:64
回覆:117
積分:96
註冊:2006-10-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-02-20 11:43:26 IP:211.75.xxx.xxx 訂閱
權限問題已自行解決................
系統時間:2017-12-15 2:40:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!