Código
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 =].
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009