Bonjour, j'ai un petit pb dans le code suivant pour sauvegarder une branche. Le fichier créé est vide ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  Reg := TRegistry.Create;
  with Reg do
  begin
    Reg.RootKey := HKEY_CURRENT_USER;
 
    stKeyName := '\Software\Embarcadero\BDS\17.0\';
    if Reg.OpenKeyReadOnly(stKeyName) then
    begin
      ErrorCode := RegSaveKey(Reg.CurrentKey, 'R17x.reg',nil);
      Reg.CloseKey;
      Reg.Free;
    end;
  end;