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 :
La fonction renvoie false et le fichier crée est à 0 octets...
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;![]()
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.]
Partager