不知道如何修正防火牆的設定功能？ |
|
答題得分者是：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 發送簡訊給我 |
發表時間：2007-04-07 00:07:07
IP:220.134.xxx.xxx 訂閱
系統時間：2024-05-14 21:49:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |