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