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

0/5 (3 avis)

Snippet vu 6 369 fois - Téléchargée 36 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
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
 31
16 mars 2003 à 14:45
C'est parfait.
Merci.
DelphiCool
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
16 mars 2003 à 13:25
voilà
;-)
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
 31
16 mars 2003 à 12:54
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)