如何加入防火牆例外(WIN7)?

發文回覆瀏覽次數：1978

推到 Plurk!

推到 Facebook!

缺席

blue
中階會員

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

發送簡訊給我

發表時間：2014-12-31 14:24:54

IP:125.227.xxx.xxx 訂閱

Hi,各位先進大家好:
因需讓程式可以通過防火牆,
小弟使用如下程式,
是順利在防火牆的例外清單加入了,
但是,卻只有公用的部份打勾,
私人的部份未打勾,
請問,如何讓私人及公用的部份都能打勾?
謝謝!

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;

系統時間：2024-05-08 10:12:45

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

本站聲明

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