Ecrire dans la base des registre sans registry

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 273 fois - Téléchargée 35 fois

Contenu du snippet

Voici une procedure quio n'est pas gourmande.
Elle permet d'écrire dans la base des registre (des string)
en utilisant seulement l'unitée Windows

Source / Exemple :


Procedure EcritRegString(Root :HKey; Chemin, NomClee, ValeurClee :string);
 var HK :HKEY;
  begin
    RegOpenKey(Root,PChar(Chemin),HK); // on ouvre la clée

    if HK = 0 then // si la clée n'existe pas on la crée
         RegCreateKeyEx(Root,PChar(chemin),0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,nil,HK,@DW);
         //RegCreateKey(Root,PChar(chemin),HK); // pas pour win 3.1, ça existe encore ;-D

     RegSetValueEx(HK,PChar(NomClee),0, REG_SZ, Pchar(ValeurClee),Length(ValeurClee)); // on ecrit la valeur

     RegCloseKey(HK); // on referme la clée
  end;

Conclusion :


http://delphicool.developpez.com

A voir également

Ajouter un commentaire Commentaires
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
C'est parfait.
Merci.
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

voilà
;-)
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Bien vu !

Dans l'aide, il est écrit : "The RegCreateKey function creates the specified key. If the key already exists in the registry, the function opens it. This function is provided for compatibility with Windows version 3.1. Win32-based applications should use the RegCreateKeyEx function."

Tu peux nous en faire une autre avec RegCreatekeyEx ?

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.