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 Ywyamazack@rwsolution.com.br