unit UWindowsFirewall;
 
interface
 
uses
  ShellAPi, Forms, Windows, SysUtils, StrUtils;
 
 
procedure PortToFirewall(EntryName : String; PortNumber : Cardinal;
  Allow : Boolean = True);
procedure ApplicationToFirewall(EntryName : String;
  ApplicationPathAndExe : String; Allow : Boolean = True);
 
implementation
 
procedure PortToFirewall(EntryName : String; PortNumber : Cardinal;
  Allow : Boolean = True);
begin
  ShellExecute(Application.Handle, nil, 'netsh.exe',
    PChar(
    'advfirewall firewall add rule name = "' + EntryName +'" dir = in action = '+
    IfThen(Allow, 'allow', 'block') +' protocol = TCP localport = ' +
    IntToStr(PortNumber)
    ),
    nil, SW_HIDE);
end;
 
procedure ApplicationToFirewall(EntryName : String;
  ApplicationPathAndExe : String; Allow : Boolean = True);
begin
  ShellExecute(Application.Handle, nil, 'netsh.exe',
    PChar(
    'advfirewall firewall add rule name = "' + EntryName +'" dir = in action = '+
    IfThen(Allow, 'allow', 'block') +' protocol = ANY program = ' +
    ApplicationPathAndExe
    ),
    nil, SW_HIDE);
end;
 
end.

procedure TForm1.BtnRegraPortaClick(Sender: TObject);
begin
  PortToFirewall(EdtDescricaoRegraPorta.Text, EdtRegraPorta.Value,
    CheckPortaPermitir.Checked);
end;

procedure TForm1.BtnProgramaAplicaClick(Sender: TObject);
begin
  ApplicationToFirewall(EdtNomePrograma.Text,
    EdtPathPrograma.Text, CheckProgramaPermitir.Checked);
end;