Discussion :

[BXDSPORT]

Bonjour
J'ai un combox avec la liste de clé qui renvoie vers un champ string;
J'essaye de récupérer la valeur et l'attibuer à rootkey mais j'ai une erreur : incompatibilite entre HKEY et string.
Comment faire passer un champ string en champ HKEY.

Merci

[Papy214]

Trop vague ! il faudrait qu'on voit le code qui provoque l'erreur.

[BXDSPORT]

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
27
28
29
30
31
32
33
34
var
  Principal: TPrincipal;
  champ:string;
  registre:TRegistry;
 
 
implementation
 
{$R *.dfm}
 
procedure TPrincipal.Button1Click(Sender: TObject);
begin
//recherche de la clé
registre:=tregistry.Create;
registre.RootKey:=champ;
if registre.KeyExists(Edit1.Text) then
Label2.Caption:='RESULTAT : TROUVE' else Label2.Caption:='RESULTAT : N''EXISTE PAS';
registre.CloseKey;
registre.Destroy;
 
end;
 
procedure TPrincipal.Liste_cleChange(Sender: TObject);
 
begin
 case  Liste_cle.ItemIndex of
 0: champ:=Liste_cle.TEXT;
 1: champ:=Liste_cle.text;
 2:champ:=Liste_cle.text;
 3:champ:=Liste_cle.text;
 4:champ:=Liste_cle.text;
 
 end;
end;

Voici le code

[Roland Chastain]

Bonjour ! Le type HKEY est un nombre entier. A quoi est-ce qu'elles ressemblent, tes chaînes ?

P.-S. Si c'est ce que je crois comprendre, voici une solution.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program RootKeys;
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows, Registry;
 
function StrToKey(s: string): HKEY;
begin
  s := UpperCase(s);
  if s = 'HKEY_CLASSES_ROOT' then
    result := HKEY_CLASSES_ROOT
  else if s = 'HKEY_CURRENT_USER' then
    result := HKEY_CURRENT_USER
  else if s = 'HKEY_LOCAL_MACHINE' then
    result := HKEY_LOCAL_MACHINE
  else if s = 'HKEY_USERS' then
    result := HKEY_USERS
  else if s = 'HKEY_PERFORMANCE_DATA' then
    result := HKEY_PERFORMANCE_DATA
  else if s = 'HKEY_CURRENT_CONFIG' then
    result := HKEY_CURRENT_CONFIG
  else if s = 'HKEY_DYN_DATA' then
    result := HKEY_DYN_DATA
  else
    result := 0;
end;
 
var
  r: TRegistry;
 
begin
  r := TRegistry.Create;
  r.RootKey := StrToKey('HKEY_CURRENT_USER');
  if r.KeyExists('Software\Microsoft\Windows\CurrentVersion\Screensavers') then
    WriteLn('La clef existe.')
  else
    WriteLn('La clé n''existe pas.');
  r.Free;
  Write('Appuyez sur la touche Entr'#130'e... ');
  ReadLn;
end.

[BXDSPORT]

Bonjour

J'ai trouvé une solution plus simple que présentez. Dans mon case, j'ai attribué à un clé dword les valeurs correspondantes de HKEY.

Merci de vos pistes