Bonjour à tous,


J'apprends Delphi en ce moment.
J'ai écrit une fonction qui renvoie true ou false selon qu'une key de la base de registre est vide ou pas.
Le compilateur m'indique une erreur HKEY et String pas compatible...

J'ai cherché pendant des heures, mais je ne vois rien.
Quelqu'un peut-il m'indiquer mon erreur?

Merci pour vos aides.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function TForm1.KeyEmpty(Root,Key:string):boolean;
     var
      Val:TStrings;
     begin
      //créé la clef
      Reg:=TRegistry.Create;
      //définit la clef principale
      Reg.RootKey:=Root;
      //vérifie l'éxistance de la clef
      if Reg.OpenKey(Key, false) then
        //vérifie le contenu
        begin
          Reg.GetValueNames(Val);
          if Val.Count>0 then
            Result:=False;
        end
      else
        Result:=True;
        //ferme la clef
        Reg.CloseKey;
        //libère la variable
        Reg.Free;
      end;