delphi 写开关防火墙代码

本文整理自网络，侵删。

 procedure Set_WindowsXP_FireWall(Enable: boolean);
// 需引用 winsvc, shellapi
// Set_WindowsXP_FireWall(false); // ?P?] 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; 

相关阅读 >>

Delphi中怎么取出字符串中单个char

Delphi dbgrid上设置选择项

Delphi splitstring 字符串分割成字符串组

Delphi结构，字符串和指针

Delphi getfilehashmd5

Delphi图像数据压缩解压缩实例

Delphi 截取绝对路径的文件名

Delphi 用cxgrid显示联合查询数据和更改数据

Delphi判断字符串是否是数字、字母、大小写字母

Delphi 根据特殊符号字符获取字符串前或后的字符

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

转载请注明出处：木庄网络博客 » delphi 写开关防火墙代码