Adicionar uma porta no Firewall do Windows - Dica

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica como adicionar uma porta firewall do Windows.


Olá galera, nesta dica 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

Wesley Y

wyamazack@rwsolution.com.br



 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?