[firebase-br] Firewall do Windons

[alexandre.bittencour]

Abaixo tenho 2 codigos, ambos tem a mesma funcao, liberar a porta do firewall 3050 para uso do firebird em rede, porem a porta naum esta sendo liberada....alguem poderia analizar os codigos e verificar o que a de errado....acho que e de interesse de muitos, pois seria melhor ja deixar a porta liberada via delphi... 

Primerio codigo: 

procedure TForm1.Button2Click(Sender: TObject); 
var 
Reg:Tregistry; 
CtrlSet:string; 
begin 
//Pega o ControlSet que esta sendo usado pelo windows 
Reg.OpenKey('SYSTEM\Select', False); 
CtrlSet := FormatFloat('000',Reg.ReadInteger('Current')); 
Reg.CloseKey; 

//Libera a porta 3050 usada pelo Firebird 
Reg.OpenKey('SYSTEM\ControlSet' + CtrlSet +'\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List', 
True); 
if (not Reg.ValueExists('3050:TCP')) 
then Reg.WriteString('3050:TCP','3050:TCP:*:Enabled:Firebird'); 
Reg.CloseKey; 
end; 


Segundo codigo: 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
WinExec('netsh.exe "firewall add portopening protocol=TCP port=3050 
name=""Firebird"" 
mode=ENABLE scope=SUBNET"', SW_SHOW); 
end;