1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

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.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Start_Firewal; 
var 
  SCM, hService: LongWord; 
  sStatus: TServiceStatus; 
  lpServiceArgVectors: PChar; 
begin 
  SCM      := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); 
  hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS); 

  StartService(hService,0,lpServiceArgVectors); 

  CloseServiceHandle(hService); 
end;					

1:
2:

function StartService(hService: SC_HANDLE; dwNumServiceArgs: DWORD;
  var lpServiceArgVectors: PChar): BOOL; stdcall;