Quick Tip : Adicionar uma porta no Firewall do Windows

Olá galera, nesta Quick Tips, irei mostrar como adicionar uma porta no Firewall do Windows. Quem usa banco de dados MySQL(3306), ou Firebird(3050), algumas verões já adicionando a porta no Firewall ,outras não, mas isso foi apenas um exemplo podemos adicionar qualquer outra porta. Vamos ao exemplo.

Adicione

2 Edits (EdtPorta, EdtDescricao)

1 BitBtn(btnAdicionar

No clique do botão vamos usar um conhecido método chamado Winexec que esta na Unit Windows. O mesmo pertence a DLL kernel32.dll, localizada no sistema operacional, ou seja, é consumida pelo Delphi.

procedure TFrmPrincipal.BtnAddClick(Sender: TObject);

Var

S : string;

begin

S := 'netsh firewall add portopening protocol = TCP port = '+ EdtPorta.Text;

WinExec(pansichar( AnsiString(S)),SW_SHOWNORMAL);

end;

Ao executarmos o comando podemos abrir o firewall do Windows e verificarmos que a mesma foi adicionada.

Fico por aqui ate à próxima Quick Tips.

Um abraço

wyamazack@rwsolution.com.br