Como checar se o diretorio existe na chave do Windows??

Delphi

15/07/2005

Caros colegas,
Como nunca trabalhei com chaves do registro do Windows estou com uma pequena dúvida, seguinte, eu tenho o seguinte código:

regRegistry := TRegistry.Create;
with regRegistry do
begin
RootKey:= HKEY_LOCAL_MACHINE;
OpenKey(´HKEY_LOCAL_MACHINE´, False);
OpenKey(´Software´, False);
OpenKey(´KEN´, False);
OpenKey(NomePrograma, False);
vNomeReg := ReadString(´Nome´);
vSerieReg := ReadString(´NSerie´);
vDataReg := ReadString(´Data´);
Free;
end;

Mas pode ser q a pasta KEN não exista nessa chave. Como faço p/checar isso??
Desde já agradeço.


Fabiano_aprendiz

Fabiano_aprendiz

Curtidas 0

Respostas

Rjun

Rjun

15/07/2005

OpenKey retorna false se a chave não existir.

Exemplo:

procedure LePersistencia;
var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create(´´);
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(´Chave´, False) then
    begin
      NomeReg := Reg.ReadString(´Nome´); 
      SerieReg := Reg.ReadString(´NSerie´); 
      DataReg := Reg.ReadString(´Data´); 
    end;
  finally
    Reg.Free;
  end;
end;



GOSTEI 0
Massuda

Massuda

15/07/2005

...pode ser q a pasta KEN não exista nessa chave. Como faço p/checar isso?
Use a função TRegistry.KeyExists:
...
  with regRegistry do
    begin
      ...
      if KeyExists(´KEN´) then begin
        OpenKey(´KEN´, False);
        ...
      end
      else
        ...
    end;



GOSTEI 0
Fabiano_aprendiz

Fabiano_aprendiz

15/07/2005

Vlw, mais uma vz eu agradeço aos amigos desse forum pelas dicas. Obrigado.
[]´s,
Fabiano.


GOSTEI 0
POSTAR