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

發文回覆瀏覽次數：2340

推到 Plurk!

推到 Facebook!

缺席

chris681016
中階會員

發表：69
回覆：122
積分：98
註冊：2006-10-12

發送簡訊給我

發表時間：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
中階會員

發表：69
回覆：122
積分：98
註冊：2006-10-12

發送簡訊給我

發表時間：2012-02-20 11:43:26

IP:211.75.xxx.xxx 訂閱

權限問題已自行解決................

系統時間：2024-04-26 23:06:30

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！