1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Ecrire dans la base des registre sans registry

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

Commenter

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
Signaler
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.
Signaler
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
voilà
;-)
Signaler
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 ?
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.

Du même auteur (DelphiCool)