Discussion :

[Oxygn44]

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;

[anapurna]

salut

RootKey est un dword
par exemple
utilise la constant HKEY_CURRENT_USER

ton exemple deviendrai

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
24
25
26
 
uses Registry;
...
 
 
function KeyEmpty(Root,Key:string):boolean;
var
  _Val:TStrings;
  Reg: TRegistry;
begin
  //créé la clef
 
  Reg:=TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;//Root;//définit la clef principale
  //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;
  Reg.CloseKey;//ferme la clef
  Reg.Free;//libère la variable
end;

@+ Phil

[ShaiLeTroll]

Normal, Root c'est un identifiant numérique, un HKEY utilisé par les API Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Reg.RootKey := HKEY_CURRENT_USER;

Tu trouverais les constantes HKEY_* dans Windows.pas

Cherché pendant des heures, pas au bon endroit, je me rappele de ma première expérience avec Delphi 4 et TRegistry, j'ai fait F1, j'ai copier-coller l'exemple ... a le bon vieux temps quand l'aide était bien faite !

[Oxygn44]

Merci pour vos réponses.
Ca m'aide bien.
En fait je voudrais que le KeyRoot puisse passer comme argument dans ma fonction. Il peut changer.

Donc j'ai écrit cela du coup :

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
function TForm1.KeyEmpty(Root:Integer;Key:string):boolean;
      var
        Val:TStrings;
      begin
        Result:=True;
        //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;
        //ferme la clef
        Reg.CloseKey;
        //libère la variable
        Reg.Free;
      end;

Je fais passer le HKEY dans une variable de type Integer.
Mais je ne sais pas si c'est une bonne écriture...
Vous feriez comment?
Le compilateur m'écrit que cela peut dépasser les limites de sous-étendu...
Je sens que ça va être compliqué.

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function TForm1.KeyEmpty(Root:DWord;Key:string):boolean;

@+ Phil

[Oxygn44]

Je vous remercie pour votre aide.
La déclaration DWord marche très bien.
Il n'apparait pas en bleu comme string. J'imagine que Delphi ne doit pas le reconnaitre mais à la compile ça marche.
Je vais pouvoir tester mon prog pour voir si déjà à ce niveau ça fonctionne.
Merci à tous.

[ShaiLeTroll]

Le type HKEY existe aussi !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function TForm1.KeyEmpty(Root: HKEY; const Key: string):boolean;

C'est le type de la propriété RootKey, autant être conforme

le type n'apparaisse pas en bleu, seul la string qui est un type spécial est considéré comme un mot clé, selon la version de Delphi, cela signifie des choses différentes :
Pour D3 à D2007

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function TForm1.KeyEmpty(Root: HKEY; const Key: AnsiString):boolean;

Pour D2009

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function TForm1.KeyEmpty(Root: HKEY; const Key: UnicodeString):boolean;