Delphi XE11 Registry

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

Code:

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;

BDS est dans la section 32Bits surement puisque l'IDE est 32bits, donc faut pas compiler ton projet en 64Bits ou alors forcer le flag WOW64
Quoi que Current User n'est pas trop concerné par l'architecture

RegSaveKey c'est basé sur TRegistry.SaveKey ?
Tu dois être KEY_ALL_ACCESS, le ReadOnly est-il un problème ?

RegSaveKey si c'est un code maison, pour avoir écrit ça en 1999, j'ai souvenir de différence entre 98 et NT4, j'espère que ta fonctionne n'est pas obsolète.

Enfin si RegSaveKey c'est RegSaveKeyW de Windows, tu as pris le privilège SE_BACKUP_NAME avec AdjustTokenPrivileges ?

Inspiré d'un code en D7 de 2007, voir si maintenant la RTL contient des classes assistantes pour cela
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 var TokenHandle, ReturnLength: Cardinal; NewState, PreviousState: TTokenPrivileges; lpLuid: TLargeInteger; if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) then begin try if LookupPrivilegeValue(nil, 'SeBackupPrivilege', lpLuid) then begin NewState.PrivilegeCount := 1; NewState.Privileges[0].Luid := lpLuid; NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; if AdjustTokenPrivileges(TokenHandle, False, NewState, SizeOf(NewState), PreviousState, ReturnLength) then begin RegSaveKeyW(...) end; end; finally CloseHandle(TokenHandle); end; end;

Finalement j'ai traité le problème via des commandes de type 'Reg export/import' depuis une commande DOS lancée depuis Delphi à partir de C:\ProgramData.
Pour info je travaille pour un client avec deux configs différentes de l'IDE Delphi XE10 Seattle sur un même poste avec des composants différents. Merci ShailLe Troll