干掉xp的防火墙(ICS)(支持win2003)

windows XP在升级sp1版本后添加了防火墙（ics）,启用后。程序初次启用网络均需要防火墙确认，对有基本

的网络常识的人倒没什么，如果对菜鸟就不行了，运行个程序还得确认，特别是p2p程序。比较麻烦。干脆用

程序把他干掉。省的麻烦。哈哈！

创建一个函数
procedure Close_Firewal;
var
  SCM, hService: LongWord;
  sStatus: TServiceStatus;
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);
  ShowMessage('哈哈干掉了');//这里提示信息可以去掉。这样就无声无息了，哈哈别干坏事啊！*_*
end;
------------------------------------->http://blog.csdn.net/laoli/.....................

再在其他部分调用就可以了
procedure TForm1.Button1Click(Sender: TObject);
begin

Close_Firewal;

end;

//哈哈简单不？^_*
------------------------------------->转载请注名出处和作者,尊重别人,也就是尊重自己.....................