delphi开启和关闭Windows xp 防火墙-木庄网络博客

本文整理自网络，侵删。

  procedure Set_WindowsXP_FireWall(Enable: boolean);
// 需引用 winsvc, shellapi
// Set_WindowsXP_FireWall(false); // ?P?] Windows Xp 防火?? www.delphitop.com
//
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;

相关阅读 >>

Delphi 匹配中文的正则表达式

Delphi用idhttp.get访问一个网址返回403错误，但用ie浏览器访问正常

Delphi 隐藏桌面图标和任务栏

Delphi 根据进程名得到进程所在路径

在Delphi如何实现模拟组合按键，如发送ctrl_f的按键消息

Delphi生成guid的两种方法

Delphi判断当前用户是否为管理员

Delphi firedac 另存json

Delphi中如何控制webbrowser滚动条

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi开启和关闭Windows xp 防火墙