Bonjour,

Avec ce code je n'arrive pas à lire une clé de registre sous windows 10 et ca m'affiche le Showmessage du code ce n'est pas le cas sous XP et 7 :
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 ReadRegistryKey(RegistryRootKey: HKEY;KeyPath,KeyToRead:string):String;
var
    Registry: TRegistry;
    str:string;
  begin
    Registry := TRegistry.Create(KEY_WRITE);
    try
      Registry.RootKey := RegistryRootKey;
       if not Registry.OpenKeyReadOnly(KeyPath) then showmessage('Impossible de lire clé '+KeyPath);
       str := Registry.ReadString(KeyToRead);
      result:=str;
      Registry.CloseKey;
    finally
      Registry.Free;
    end; // try..finally
  end;
Et pour lire la clé je fais ceci pour lire la valeur de Init:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
ValeurCle:=ReadRegistryKey(HKEY_CURRENT_USER,'Software\MonProg\Settings','Init');
Es-ce qu'il y a SVP, une autre manière de récupérer les clés de registre sous win10 ?

J'ai D7 32 bits

Merci !