Quelques fonctions de base....

Commenter

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

S'inscrire maintenant

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.