Probleme avec SaveKey de TRegistry.

cs_Teardrop Messages postés 16 Date d'inscription jeudi 17 janvier 2002 Statut Membre Dernière intervention 5 février 2002 - 23 janv. 2002 à 18:27
cs_Teardrop Messages postés 16 Date d'inscription jeudi 17 janvier 2002 Statut Membre Dernière intervention 5 février 2002 - 26 janv. 2002 à 14:04
Bonjour,

j'aimerai bien savoir pourquoi j'arrive pas a sauver une clée en tapant ca :

procedure TfrmMain.FileSaveClick(Sender: TObject);
var reg: TRegistry;
begin
reg := TRegistry.Create;
if reg.SaveKey('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', 'registry') = True then
ShowMessage('Alright!')
else
ShowMessage('Oops');
reg.Free;
end;

Chaque fois il me met 'Oops'.
et j'ai pas de fichier, ou bien il est vide.

2 réponses

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
26 janv. 2002 à 09:04
La réponse est simple : quand on crée un objet TRegistry et que l'on ne précise pas la propriété RootKey, la valeur par défaut est HKEY_CURRENT_USER.
Par conséquent, supprime 'HKEY_CURRENT_USER' au début de la chaîne et admire le bel 'Alright !'
0
cs_Teardrop Messages postés 16 Date d'inscription jeudi 17 janvier 2002 Statut Membre Dernière intervention 5 février 2002
26 janv. 2002 à 14:04
Merci.
0
Rejoignez-nous