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;
//哈哈简单不?^_*
------------------------------------->转载请注名出处和作者,尊重别人,也就是尊重自己.....................