Quelques fonctions de base....

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 628 fois - Téléchargée 30 fois

Contenu du snippet

Salut à tous !
C'est le premier source que je dépose ici... Et certainement pas le dernier, va falloire donc s'habituer à mes fonctions foireuses, mes comentaires et pas clairs, et autre ;-)
Bon, on va commencer doucement hein ? Juste deux petites fonctions qui permettent d'écrire et de lire une cléf dans la BDR :

Source / Exemple :


Uses ...,Registry,...

{Voici la premiére fonction, qui permet de lire dans la base de registre}

function Lire_Clef (lacle,nom : string) : string;
Var 
   LeRegistre : TRegistry;
begin
    // On cree le registre
    LeRegistre := TRegistry.Create; 
    
    // On choisit la cle racine
    LeRegistre.RootKey := HKEY_CLASSES_ROOT;
    
    // On selectionne la cle a lire :
    LeRegistre.OpenKey (lacle); 
    
    // On lit la valeur : 
    result := LeRegistre.ReadString (nom);

    // On ferme et libére tout ça  
    LeRegistre.CloseKey;  
    LeRegistre.Free;
end;            

{Voici la deuxiéme fonction, qui permet d'écrire dans la base de registre}

procedure Ecrire_Clef (lacle,nom,valeur : string);
Var 
   LeRegistre:TRegistry;
begin
    // On cree le registre
    LeRegistre := TRegistry.Create; 
    
    // On choisit la cle racine
    LeRegistre.RootKey := HKEY_CLASSES_ROOT;
    
    // On selectionne la cle a lire :
    LeRegistre.OpenKey (lacle); 

    // On ecrit dans la cle
    LeRegistre.WriteString(nom,valeur); 
    
    // On ferme et libére tout ça  
    LeRegistre.CloseKey;  
    LeRegistre.Free;
end;

Conclusion :


Voilà !
Surtout, n'oubliez pas d'ajouter dans les uses de votre unitée "Registry" !!
Un dernier petit conseil, essayez de vous créer une unitée avec toutes les fonctions utile que vous trouvez. C'est toujours utile ;-)

6lex [JWebding@aol.com]

A voir également

Ajouter un commentaire

Commentaires

cs_hendrix
Messages postés
65
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
18 novembre 2008
1
Salut,

Moi je cherche une fonction qui permet de balayer la base de registre et de trouver toutes les occurences d'une valeur...bref l'équivalent de la fonction recherche pour regedit !!

Merci de votre aide
g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010

Très kool ton code, il m'a permis de corriger un tas de faute chez moi merci
Bof, c pas mal mais tu devrais passer au C++ parce que c bcp plus puissant !
Oui, tu as raison... MéaCulpa ;-)

www.cyberialis.Com (moi aussi je peux faire de la pub !)
Hello

Bonne initiative pour les newbies.

Mais faur rajouter False dans OpenKey (pour la lecture) pour evité de créer la clée si elle n'existe pas :

LeRegistre.OpenKey(MaClée,False);


www.ProgZed.com

té de chez AOL lol
essaye ds té contact ProggyFool c'est Moi

@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.