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 :
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
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;
Es-ce qu'il y a SVP, une autre manière de récupérer les clés de registre sous win10 ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ValeurCle:=ReadRegistryKey(HKEY_CURRENT_USER,'Software\MonProg\Settings','Init');
J'ai D7 32 bits
Merci !
Partager