Buscar

Incluir programa na lista de permição do firewall do windows xp

Código

Nesta dica eu vou ensinar a voces como incluir um programa no firewall do windows apartir do momentos em q ele for executado. Nesta  operação é usando um comando do prompt de comando do windows, 'netsh', se quizerem testar vao ao cmd e digitem 'netsh /?'.

Vamos lá:

Declara a unit ShellAPI

Coloca esse codigo no evento OnCreate do form:

ShellExecute(Application.Handle,nil,'netsh.exe',PChar('firewall add allowedprogram "' + Application.exename + '" Anti-Virus ENABLE'),nil,SW_HIDE);

Espero q sirva para alguma coisa =].

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 28/06/07
Por: Samuel
Visualizada: 7734 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009