Problème avec TRegistry et SaveKey...

Version imprimable

Bonjour,
Je cherche à faire une sauvegarde d'un noeud de registre (avec ses sous clés) pour pouvoir transporter des fichiers de configuration.
Je développe avec Dephi 4 sous Win2000 et j'utilise la fonction SaveKey du composant TRegistry. Le bout de code suivant ne fonctionne pas :
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 procedure TForm1.Button1Click(Sender: TObject); const sFileName = 'c:\temp\test'; sRegString = 'Software\Borland\Delphi'; var Reg: TRegistry; begin if FileExists(sFilename) then begin FileSetAttr(sFilename, 0); // clear Read-Only and Hidden flags Deletefile(sFilename); end; Reg := TRegistry.Create; try Reg.RootKey:= HKEY_LOCAL_MACHINE; if Reg.SaveKey(sRegString, sFilename) then Showmessage('Saved: ' + sFilename) else Showmessage('NOT saved'); finally Reg.Free; end; end;
La fonction renvoie false et le fichier crée est à 0 octets... :?
Y'a t'il des problèmes connus avec cette fonction ?

Merci pour votre aide,
Fred.

[Balise [code] ajoutée par Pierre Castelain]
[Pensez-y à l'avenir. Merci.]

29/03/2003, 22h08
Nono40

Je viens d'essayer, et ton code fonctionne sans problème avec WindowsMe. Par contre en essayant avec WindowsXP j'ai le même problème bien que ma session soit une session administrateur. A mon avis le blocage vient de là et non pas de la fonction SaveKey.
29/03/2003, 22h28
Invité

Extrait de l'aide de l'API win32 sur RegSaveKey qui est appelé par TRegistry.SaveKey (cf Registry.pas)

Citation:

Windows NT: The calling process must have the SE_BACKUP_NAME privilege. For more information about privileges, see Privileges.

:arrow: AMILIN
C'est exact et c'est ce que j'avais vu. Mais ceci n'est pas bloquant, car une application peut modifier ce droit. Entre temps j'ai retrouvé mon code qui permet de modifier un privilège.

:arrow: subsub
Voici donc le code complet, la sauvegarde le la clef est la même que le code que tu donnes, mais avant il y a la demande de droit 'BACKUP'. Qui est ensuite supprimé.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
function _AdjustTokenPrivileges(TokenHandle: THandle; DisableAllPrivileges: BOOL;
  NewState: PTokenPrivileges; BufferLength: DWORD;
  PreviousState: Integer; ReturnLength: Integer): BOOL;stdcall; external advapi32 name 'AdjustTokenPrivileges';
 
// Fonction de mise à jour des droits utilisateurs avec NT/2000/XP
Function LoggedSetBackupPrivilege ( hProcess:THANDLE;bEnable:Boolean):Boolean;
Var
  Info  : TTokenPrivileges;
  Token : THandle;
  Res   : Boolean;
Const SE_BACKUP_NAME='SeBackUpPrivilege';
Begin
  // Ouverture des droits
  Res := OpenProcessToken ( hProcess,TOKEN_ADJUST_PRIVILEGES,Token);
  If Not Res Then
  Begin
    ShowMessage('Impossible d''ouvrir les droits.' );
    Result:=False;
    Exit;
  End;
 
  // Mise à True ou False du droit
  Info.PrivilegeCount := 1;
  if  bEnable
    Then Info.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
    Else Info.Privileges[0].Attributes := 0;
 
  // Obtention du LUID.
  Res := LookupPrivilegeValue ( Nil,SE_BACKUP_NAME,Info.Privileges[0].Luid);
  if Not Res Then
  Begin
    ShowMessage('Impossible de trouver la valeur du privilège SE_BACKUP_NAME.' );
    Result:=False;
    Exit;
  End;
 
  // Modification du privilège
  Res := _AdjustTokenPrivileges ( Token, FALSE,@Info, 0, 0, 0);
  if Not Res Then
  Begin
    ShowMessage('Impossible de modifier le privilège, erreur '+IntToStr(GetLastError));
    Result:=False;
    Exit;
  End
  Else
  Begin
    if GetLastError<>ERROR_SUCCESS Then
    Begin
      ShowMessage('Impossible d''obtenir le privilège SE_BACKUP_NAME'#13+
                  'Vérifier les règles de sécurité locale.');
      Result:=False;
      Exit;
    End;
  End;
 
  CloseHandle( Token );
  Result:=True;
End;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  sFileName = 'c:\temp\test.txt';
  sRegString = 'Software\Borland\Delphi';
var
  Reg: TRegistry;
begin
  if FileExists(sFilename) then begin
    FileSetAttr(sFilename, 0); // clear Read-Only and Hidden flags
    Deletefile(sFilename);
  end;
 
  // Il faut les droits de 'BACKUP' pour utiliser SaveKey
  LoggedSetBackupPrivilege( GetCurrentProcess, TRUE );
 
  Reg := TRegistry.Create;
  try
    Reg.RootKey:= HKEY_LOCAL_MACHINE;
    if Reg.SaveKey(sRegString, sFilename) then
      Showmessage('Saved: ' + sFilename)
    else
      Showmessage('NOT saved');
  finally
    Reg.Free;
  end;
 
  // On supprime ensuite les droits de BackUp donnés plus haut
  LoggedSetBackupPrivilege( GetCurrentProcess, False );
end;

Avec ceci, la fonction SaveKey fonctionne aussi avec NT/2000/XP. J'ai essayé avec Xp en administrateur, je ne sais pas si c'est possible avec un compte utilisateur simple.

07/04/2003, 11h02
subsub

Nono40, AMILIN, Merci pour votre aide ! J'essaye le code de suite et vous tiens au courant...
:D
07/04/2003, 14h52
subsub

OK

Ca marche très bien sous Windows 2000. J'ai également implémenté la fonction de restauration des paramètres (RestoreKey). Dans ce cas c'est le privilège SE_RESTORE_NAME qui est indispensable.
C'est nikel, encore merci. :wink: