problemas com excessão no firewall xp

tenho o seguinte código:

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

queria saber se tem como eu adicionar excessão no firewall mas, indicando o caminho do meu executável; para que quando o computador fosse reiniciado, a excessão funcionasse pro caminho indicado. e gostaria de saber como ficaria o código.

Desde já agradeço.