Tout d'abord, ajouter la classe Registry
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, registry;
On peut ensuite utiliser le registre dans les procédures : écrire,
modifier, supprimer...
Ne pas oublier de créer une variable (peu importe le nom, ici reg)
de classe TRegistry avant begin
procedure TForm1.Button1Click(Sender:TObject); var reg : TRegistry; // variable nécessaire nb:Integer; txt:String; // variables pour exemples begin reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; // on détermine la racine reg.OpenKey('Software\conseil-creation',true); // on ouvre une clé du registre // ici, vous pouvez lire, créer, supprimer ( dans la dernière clé ouverte ! ) : reg.WriteString('texte','essai'); // écrit une chaîne (ici texte = essai) reg.ReadString('texte'); // lit une chaîne reg.WriteInteger('nombre',1); // écrit un nombre (ici nombre = 1) reg.ReadInteger('nombre'); // lit un nombre // notez qu'il est possible d'affecter les valeurs à des variables : txt := reg.ReadString('texte'); // stocke la valeur dans la variable txt nb := reg.ReadInteger('nombre'); // stocke la valeur dans la variable nb // ou encore directement : if reg.ReadString('texte') = 'essai' then // teste si 'texte' = essai if reg.ReadInteger('nombre') = 1 then // teste si 'nombre' = 1 { De la même façon, il est possible de gérer d'autres types de valeurs : booléens (writebool, readbool) ; dates (writedate, readdate) ... } { Vous pouvez changer la racine et/ou la clé en cours en les redéfinissant : reg.RootKey := ... ; reg.OpenKey(' ... ',true); } reg.CloseKey; // on ferme la clé end;
A noter : Delphi vous fournit automatiquement la liste des fonctions
disponibles si vous entrez "reg." :