Можно вырубить службу файервола при старте программы
uses
WinSvc;
function StopFireWallService : Boolean;
var
SCMan : Cardinal;
Svc : Cardinal;
Stat : TServiceStatus;
begin
SCMan := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
Svc := OpenService(SCMan, 'SharedAccess', SERVICE_STOP);
Result := ControlService(Svc, SERVICE_CONTROL_STOP, Stat);
CloseServiceHandle(Svc);
CloseServiceHandle(SCMan);
end;
Также можно отключить автозагрузку файервола, если вместо ControlService использовать ChangeServiceConfig с 3-им параметром SERVICE_DISABLED.
|