Delphi : Savoir si une clé existe dans la base de registre ?

Delphi : Savoir si une clé existe dans la base de registre ? - Delphi/Pascal - Programmation

Marsh Posté le 11-09-2002 à 20:06:25    

 CleRegistre:=TRegistry.Create;
  CleRegistre.RootKey := HKEY_LOCAL_MACHINE;
  if CleRegistre.OpenKey('\SOFTWARE\RClock',false)  // suposé crée ...
 
De la manière que je vois le code fonctionner, il vérifie si le DOSSIER est créé ou non, et non la clé elle-même.
 
Vous avez pas une commande qui vérifierais ca ?

Reply

Marsh Posté le 11-09-2002 à 20:06:25   

Reply

Marsh Posté le 11-09-2002 à 21:54:08    

function KeyExists(const Key: String): Boolean; ?


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 11-09-2002 à 23:19:55    

essai un truc du genre
 
avec
reg : tregistry;
m1 : string;
val: tsrings;
i,ii : integer;
 
 
m1:='software\RClock';
Reg:=TRegistry.Create;
try
  Val:=TStringList.Create;
   try
     Reg.RootKey:=HKEY_LOCAL_MACHINE; // Section où chercher dans le registre
      if not
        reg.OpenKey(m1,false) then
        ShowMessage('Erreur d''ouverture de la clé';)
      else
      begin
        Reg.GetValueNames(Val);
        for I:=0 to Val.Count-1 do
        begin
          ShowMessage(m1 + Chr(13) +
                      'contient une entrée nommée  '+Val.Strings[I]+Chr(13)+
                      'De valeur  '+Reg.ReadString(Val.Strings[I]));
        end;
   val.free;
  finally
    Reg.Free;
  end;


---------------
Les touches de l'avenir
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed