Top des logiciels
1. HxD Hex Editor 1.6.1 (328 fois)
2. Open Office 2.2.1 (294 fois)
3. Delphi 6 (253 fois)
4. Windows Live Messenger (175 fois)
5. FireFox 2.0.0.12 (135 fois)
En bref
03 Sept 2008 
Google Chrome : le navigateur 100 % Made In Google... ou presque !
28 Août 2008 Internet Explorer 8 : toutes les nouveautés du navigateur
18 Août 2008 Windows 7 : tout savoir sur le prochain système de Microsoft
13 Août 2008 The Pirate Bay censuré en Italie - L'arrêt de mort du réseau P2P ?
11 Août 2008 Hop : le nouveau téléphone jetable à 15€
Les derniers dossiers
Google : le maître des noms de domaines
La nouvelle version de GMail en images !
Barème de rémunération pour les disques durs multimédias
Les ressources Delphi et C/C++
Afficher la date et heure du jour
Alignement de séquences d'ADN
TatNum : gestion des images avec Qt
Membres en ligne :
Nos partenaires
À votre tour, devenez partenaire de mx-dev.net.
Informations sur le snippet :
Auteur : Matt 261
Catégorie : Base de registre
Niveau : Débutant
Posté le : 31 Janvier 2008 à 15h31
Description :
Je vous propose ici de voir comment lire, écrire des données dans la base de registre de Windows.
Il faut tout d'abord déclarer l'unité Registry dans les Uses.
Code Source :
////POUR LA LECTURE
Begin
Registre := TRegistry.Create; //Création de l'objet registre
With Registre Do
RootKey := HKEY_CURRENT_USER; //Sélection de la clé principale
OpenKey('Software\Microsoft\ScreenSavers\Clubin', True); //ouverture de la clé
If ValueExists('Text') Then //Recherche pour savoir si 'Text" existe
EditTxt.Text := ReadString('Text'); //lecture de la chaîne
If ValueExists('Color') Then
ColorBox1.Selected := ReadInteger('Color'); //Lecture d'un nombre
If ValueExists('Beep') Then
CheckSound.Checked := ReadBool('Beep'); //Lecture d'une valeure booléenne (0 ou 1)
Finally
Free; //Libération de la base de registre. A faire absolument !
////POUR L'ECRITURE
WriteString('Text', EditTxt.Text); //Ecriture d'une chaîne de caractère
WriteInteger('Color', ColorBox1.Selected); //Ecriture d'un nombre
WriteBool('Beep', CheckSound.Checked); //Ecriture d'une valeur booléenne