[firebase-br] RES: (sem assunto)

[Marlon]

 Tenta assim usando o registro do windows 

 //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;