Forums | Contact | Plan du site Menu Accueil » Programmation

Utilisation du registre avec Delphi

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

 


Une question ? Venez échanger sur le forum...
Nom :
Sujet :
 

© Cédric MICHEL - conseil & création ( 2003 / 2024 )