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 : 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
 
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.]