Карта сайтаСсылкиКонтакты

Отключение файрвола в XP

PDF Печать
Статьи

Как отключить файрвол в 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.

 

Добавить комментарий


Защитный код
Обновить