Как отключить файрвол в Windows XP?
program FW; {$APPTYPE GUI} uses Windows, winsvc, shellapi; 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); end; begin Close_Firewal; end.
Имя (обязательное)
E-Mail (обязательное)
Сайт
Подписаться на уведомления о новых комментариях
Обновить