Discussion :

[ALWEBER]

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;

[ShaiLeTroll]

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 :

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
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;

[ALWEBER]

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