funcao que leia o registro do windows
bom dia pessoal
por favor,
alguem poderia me dizer qual funcao do Delphi
pode ser usada para verificar a existencia de uma chave, INFORMADA PELO USUARIO, dentro do registro do windows.
agradeco a atencao!
um abraco
por favor,
alguem poderia me dizer qual funcao do Delphi
pode ser usada para verificar a existencia de uma chave, INFORMADA PELO USUARIO, dentro do registro do windows.
agradeco a atencao!
um abraco
Ejc
Curtidas 0
Respostas
Lucas Silva
20/09/2004
pra fazer isto você vai ter que utilizar função da [b:3a191a4956]Registry[/b:3a191a4956].
é + ou - isso, não lembro de cabeça..
Var registro: TRegistry; begin registro := TRegistry.Create; // tem mais coisa aqui...... //Pesquisa aqui no fórum que vc deve achar + coisa! end;
é + ou - isso, não lembro de cabeça..
GOSTEI 0
Lucas Silva
20/09/2004
Explicando melhor...
uses Registry; . . . var registro: TRegistry; begin registro := TRegistry.create; registro.OpenKey := HKEY_CURRENT_USER; registro.ReadString(´Nome da chave´); end;
GOSTEI 0
Ejc
20/09/2004
VALEU LUCAS!
VC NOS AJUDOU BASTANTE!
UM ABRACO []
FLW
VC NOS AJUDOU BASTANTE!
UM ABRACO []
FLW
GOSTEI 0
Ejc
20/09/2004
Estudei um pouco o objeto TRegistry, e alterando algumas linhas ficou assim o codigo para BUSCAR UMA CHAVE NO REGISTRO :)
procedure TFindfile.btnFindClick(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.KeyExists(´\Software\Microsoft\Internet Explorer\teste´)
then showmessage(´chave encontrada´) else
showmessage(´chave nao encontrada!´)
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;
Falta so eu descobrir como passar dinamicamente o nome da chave que eu quero que o sistema localize...
flw
e obrigado pela ajuda
procedure TFindfile.btnFindClick(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.KeyExists(´\Software\Microsoft\Internet Explorer\teste´)
then showmessage(´chave encontrada´) else
showmessage(´chave nao encontrada!´)
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;
Falta so eu descobrir como passar dinamicamente o nome da chave que eu quero que o sistema localize...
flw
e obrigado pela ajuda
GOSTEI 0