Discussion :

[sematimo]

Bonjour

Pour convertir un string en HKEY j'utilise ceci

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
 
function aRegistry(CleRoot:string):boolean;
var
 cle : Cardinal;
Reg : TRegistry;
begin
  if CleRoot = 'HKEY_CLASSES_ROOT'
  then cle := HKEY_CLASSES_ROOT
    else
  if CleRoot = 'HKEY_CURRENT_USER'
  then cle := HKEY_CURRENT_USER
    else
  if CleRoot = 'HKEY_LOCAL_MACHINE'
  then cle := HKEY_LOCAL_MACHINE
    else
  if CleRoot = 'HKEY_USERS'
  then cle := HKEY_USERS
    else
  if CleRoot = 'HKEY_CURRENT_CONFIG'
  then cle := HKEY_CURRENT_CONFIG
 
  try
    Reg := TRegistry.Create;
    Reg.RootKey := cle;
...
end;

Existe-t-il une fonction pour convertir directement du style StrToHkey ?

[BeanzMaster]

Salut, non je ne crois pas, mais tu as déja ta fonction toute faite

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
function StrToHkey( CleRoot : String) : Cardinal;
begin
  if CleRoot = 'HKEY_CLASSES_ROOT'
  then Result := HKEY_CLASSES_ROOT
    else
  if CleRoot = 'HKEY_CURRENT_USER'
  then Result := HKEY_CURRENT_USER
    else
  if CleRoot = 'HKEY_LOCAL_MACHINE'
  then Result := HKEY_LOCAL_MACHINE
    else
  if CleRoot = 'HKEY_USERS'
  then Result := HKEY_USERS
    else
  if CleRoot = 'HKEY_CURRENT_CONFIG'
  then Result := HKEY_CURRENT_CONFIG
end;

A+

Jérôme