problemas com excessão no firewall xp

[Lívio Bruno 0]

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.

[Antharaz 3]

Bem... eu tenho um que adiciona uma excessão no firewall do windows alterando o registro...

 

var
Reg: TRegistry;
begin
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List', false);
Reg.WriteString(Application.ExeName , Application.ExeName +':*:Enabled:'+Application.title );
reg.Free;

Ele irá adicionar seu programa à excessão do firewall do windows...

 

PS:.. declare registry na Uses