注册
登录
| 关键词： nbsp hService WindowsXP FireWall SERVICE sStatus ACCESS Enable SCM begin |
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;end; |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
