[firebase-br] (sem assunto)

[alexandre.bittencour]

Eu de novo.....

Fiz conforme você falou mas tah dando o seguinte erro:  "Failed to get data for 'Current' "   segue a baixo o codigo usado.


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;

end.


-------Original Message-------

From: Marlon
Date: 13/10/2006 17:39:38
To: FireBase
Subject: Re: [firebase-br] RES: (sem assunto)

  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;

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa