[firebase-br] (sem assunto)

Eduardo Jedliczka (TeamFB) jedyfb em gmail.com
Seg Out 16 18:23:18 -03 2006


Pessoal... o CANTU pediu para dar um tempo nos off-topics...

daqui a pouco esta THREAD vira uma aula de delphi com acesso à recursos 
avançados de windows...

======================
Eduardo Jedliczka
Membro do TeamFB - FireBase
Apucarana - PR
======================
"Posso não concordar com nada do que dizes.
Mas defenderei até a morte o seu direito de dizê-lo"
(Voltaire 1694-1778)
----- Original Message ----- 
From: "Marlon" <marlon em multi-informatica.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, October 16, 2006 4:36 PM
Subject: Re: [firebase-br] (sem assunto)


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


______________________________________________
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 





Mais detalhes sobre a lista de discussão lista