ao inves de passar a rootkey como parametro vc deveria passar toda chave
rootkey + key usando string
ai faz um case na funcao onde vc usa funcao position e compara
if pos('HKEY_CURRENT_USER',chave) >0 then
BRegistry.RootKey := HKEY_CURRENT_USER;
----- Original Message -----
From: "Alexandre Brasil" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, December 09, 2004 9:52 AM
Subject: Re: [delphi-br] Variaveis HKEY para String... dá!?!?!?!?
>
> Isso... mas eu não quero deixar engessado... eu quero definir essa
> rootkey... por exemplo:
> Uma hora quero ver o valor da chave
> "Software\Microsoft\Windows\CurrentVersion\Internet Settings" que esta na
> chave do registro inicial "HKEY_CURRENT_USER".
> Outra quero ver o conteudo da chave "SOFTWARE\Microsoft\Internet Explorer"
> que esta na chave do registro inicial "HKEY_LOCAL_MACHINE".
>
> Mudei as chaves iniciais... e é isso que eu quero fazer. Quero definir
essa
> chave inicial em minha fç.
>
> Não sei se consegui ser claro.....
>
> ----- Original Message -----
> From: "Ricardo" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, December 09, 2004 9:25 AM
> Subject: Re: [delphi-br] Variaveis HKEY para String... dá!?!?!?!?
>
>
> >
> > acho que vc esta confundindo
> > rootkey nao eh a chave toda eh so qual a chave do registro inicial
> > exemplo
> > BRegistry.RootKey := HKEY_CURRENT_USER;
> > e depois vc le com /path da chave sem a rootkey
> > .
> > ----- Original Message -----
> > From: "Alexandre Brasil" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Thursday, December 09, 2004 9:02 AM
> > Subject: [delphi-br] Variaveis HKEY para String... dá!?!?!?!?
> >
> >
> >>
> >> Bom dia lista...
> >>
> >> Alguém poderia me ajudar com esse problema....
> >> tenho uma fç que pega valores do registro do windows... aqui esta ela:
> >>
> >> function PegaValorRegWin(ChaveRoot: hkey; Chave, Valor: string):
string;
> >> var
> >> Registro: TRegistry;
> >> begin
> >> Registro:=TRegistry.Create;
> >> with Registro do
> >> begin
> >> RootKey:= ChaveRoot;
> >> if OpenKey(Chave, False) then
> >> begin
> >> if ValueExists(Valor) then
> >> begin
> >> Result:= ReadString(Valor);
> >> end
> >> else
> >> MessageDlg('Valor '+Valor+' não existe na chave
'+Chave+'
> > do
> >> Registro do Windows', mtError, [mbok], 0);
> >> end
> >> else
> >> MessageDlg('Chave '+Chave+' não existe no Registro do
> > Windows',
> >> mtError, [mbok], 0);
> >> CloseKey;
> >> end;
> >> end;
> >>
> >> Notem que tenho que passo 3 valores, ChaveRoot é do tipo HKEY, só que
o
> >> valor que eu tenho que passar para ela é do tipo string, pois vem de um
> >> EDIT.
> >>
> >> Então, como posso converter então uma variavel String para HKEY???
> >>
> >> Obrigado pela ajuda e desculpe o tamanho da mensagem...
> >> []'s Alexandre
> >>
> >>
> >>
> >> --
> >> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >>
> >> Para ver as mensagens antigas, acesse:
> >> http://br.groups.yahoo.com/group/delphi-br/messages
> >>
> >> Para falar com o moderador, envie um e-mail para:
> >> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >>
> >> Links do Yahoo! Grupos
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
