[delphi-br] Firewall - Windows

Mon, 28 May 2007 11:33:28 -0700 

Alguem sabe como via código eu adicionar uma excessão no firewall do windows xp 
do meu executável?

Eu tentei o código :

Reg:= TRegIniFile.Create('System');
      Reg.RootKey:= HKEY_LOCAL_MACHINE;
      
reg.OpenKey('\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StardardProfile\AuthorizedApplications'
 , false);
      Reg.WriteString( 'List' , Application.ExeName , Application.ExeName 
+':*:Enabled:System' );
      reg.Free;

Mas aparece a mensagem de falha ao criar a chave(estou logando como 
administrador);

Alex

[As partes desta mensagem que não continham texto foram removidas]

Responder a