不知道如何修正防火牆的設定功能? |
答題得分者是:pcboy
|
g9221712
高階會員 發表:145 回覆:344 積分:162 註冊:2006-07-06 發送簡訊給我 |
各位前輩:
我參考了前輩的作法,我改寫成函數形式,但是我只查到關閉防火牆的服務,但是不知道要如何開啟? 懇請各位給予指導,萬分感謝! procedure Set_WindowsXP_FireWall(Enable: boolean); // 需引用 winsvc, shellapi // Set_WindowsXP_FireWall(false); // 關閉 Windows Xp 防火牆 // var SCM, hService: LongWord; sStatus: TServiceStatus; begin if Enable = false then begin SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS); ControlService(hService, SERVICE_CONTROL_STOP, sStatus); CloseServiceHandle(hService); end; if Enable = True then begin // 不知道怎麼關閉防火牆 end; end;
------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」 程式寫的越久,卻發現自己越來越不會寫程式! |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
把 SERVICE_CONTROL_STOP 改為 SERVICE_CONTROL_START SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS); ControlService(hService, SERVICE_CONTROL_START, sStatus); CloseServiceHandle(hService); Google "Delphi SERVICE_CONTROL_STOP" 有很多資料 http://www.google.com.tw/search?hl=zh-TW&q=delphi SERVICE_CONTROL_START&meta= http://www.openitpower.com/wenzhang/97/7893_1.html http://www.openitpower.com/wenzhang/97/7893_1.html http://topic.csdn.net/t/20040614/21/3091845.html http://www.verystu.com/article/10/Article_11519_1.shtml
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
harpist
資深會員 發表:3 回覆:251 積分:430 註冊:2002-10-03 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |