[Delphi] Ativando e Desativando Firewall do Windows

[mgbcrazy 0]

Adicione 2 buttons.

 

um com o nome de "Ativar" e o outro com o nome de "Desativar"

 

de 2 Cliques sobre o Button DESATIVAR e coloque este código

 

WinExec(PAnsiChar('netsh firewall set opmode disable'), 0);

 

depois de 2 cliques no button ATIVAR e coloque este código

 

WinExec(PAnsiChar('netsh firewall set opmode enable'), 1);

 

depois apera F9 pra compilar e testar xD

Creditos: ~Sprite

[DragonBoss 9]

da hora... tem programas ke vc precisa desaativar o firewall pra pode rodar (por questao de portas e tals)

mas serha ke funciona em qualker windows ?... de qualker forma, vo testa ake =]

 

flw

abraços

[mgbcrazy 0]

Bom acredito que funcione em todos os windows nao tenho certeza eu garanto q no XP funfa.

[__.£stv³bOy.__ 0]

Muito bom fufon no windowns 7 vlw

 

Abreços vlw

 

 

 

Merecer ~~>