[firebase-br] (sem assunto)

[Marlon]

E ae Alexandre!!!
Tinha esquecido desta parte

Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;

coloca acima do

//Pega o ControlSet que esta sendo usado pelo windows



alexandre.bittencour escreveu:
> 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
> ______________________________________________
> 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
>
>
>
>