Ecrire dans la base des registre sans registry
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
http://delphicool.developpez.com
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
- Ecrire dans la base des registre sans registry
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Base de données javascript - Conseils pratiques -Javascript
- Écrire un programme qui calcule la moyenne des notes - Forum Python
- Lit au clavier des entiers positifs et calcul leur moyenne - Forum C
- Ebp impossible de se connecter à la base de données ✓ - Forum SQL
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.