Accueil > > > ACCÈS À LA BASE DE REGISTRE
ACCÈS À LA BASE DE REGISTRE
Information sur la source
Description
Module d'accès à la base de registre : recherche, lecture/écriture, suppression de clés et d'entrées, ...
Vu que la gestion de (toute) la base de registre n'est pas aisée en VB, je crois que ce module devrait pouvoir aider un certain nombre d'entre nous.
Source
- '
- ' Exemple d'utilisation des procédures du module Registre.bas
- '
- ' L'utilisation des API d'accès n'est pas aisée; c'est pour cela que j'ai écrit quelques fonctions
- ' dans ce module, pour servir d'intermédiaire avec les API en simplifiant leur utilisation.
- '
- Public Sub ExempleRegistre()
- Dim Clé As Long
- Dim CheminMisterRom As String
- Dim CheminNomOrdinateur As String
- Dim Nom As String
- Dim h As Integer
-
- ' Initialisation de la clé
- CheminMisterRom = "Software\Mr Rom\Exemple d'utilisation des API"
- CheminNomOrdinateur = "System\ControlSet\Control\ComputerName\ComputerName"
-
- ' Vérification de la présence de cette clé d'entrée dans la base de registres
- If Not VérifiePrésenceClé(HKEY_CURRENT_USER, CheminMisterRom) Then
- ' Clé non-présente
- ' Création de cette entrée
- CréationClé HKEY_CURRENT_USER, CheminMisterRom
-
- ' Exemple de lecture d'une information dans la base de registre
- ' Le nom de l'ordinateur dans le réseau
-
- ' Ouverture de la clé
- Clé = OuvertureClé(HKEY_CURRENT_USER, CheminNomOrdinateur)
- ' Lecture de l'entrée
- Nom = Trim$(LectureEntrée(Clé, "ComputerName"))
- ' Fermeture de cette clé
- FermetureClé Clé
-
- ' Stockage de ce nom dans un emplacement personnalisé de la base de registre
- ' HKEY_CURRENT_USER\Mr Rom\Exemple d'utilisation des API
- ' Ouverture de la clé
- Clé = OuvertureClé(HKEY_CURRENT_USER, CheminMisterRom)
- ' Ecriture de cette valeur
- EcritEntrée Clé, "Nom de l'ordinateur", Nom
- ' Fermeture de cette clé
- FermetureClé Clé
-
- End If
-
- ' Ouverture de la clé
- Clé = OuvertureClé(HKEY_CURRENT_USER, CheminMisterRom)
- ' Lecture de l'entrée
- Nom = Trim$(LectureEntrée(Clé, "Nom de l'ordinateur"))
- ' Fermeture de cette clé
- FermetureClé Clé
-
- ' Un message pour vous ...
- MsgBox "Salut ! Le nom de votre ordinateur est : "+Nom, vbInformation, "Mr Rom"
-
- End Sub
'
' Exemple d'utilisation des procédures du module Registre.bas
'
' L'utilisation des API d'accès n'est pas aisée; c'est pour cela que j'ai écrit quelques fonctions
' dans ce module, pour servir d'intermédiaire avec les API en simplifiant leur utilisation.
'
Public Sub ExempleRegistre()
Dim Clé As Long
Dim CheminMisterRom As String
Dim CheminNomOrdinateur As String
Dim Nom As String
Dim h As Integer
' Initialisation de la clé
CheminMisterRom = "Software\Mr Rom\Exemple d'utilisation des API"
CheminNomOrdinateur = "System\ControlSet\Control\ComputerName\ComputerName"
' Vérification de la présence de cette clé d'entrée dans la base de registres
If Not VérifiePrésenceClé(HKEY_CURRENT_USER, CheminMisterRom) Then
' Clé non-présente
' Création de cette entrée
CréationClé HKEY_CURRENT_USER, CheminMisterRom
' Exemple de lecture d'une information dans la base de registre
' Le nom de l'ordinateur dans le réseau
' Ouverture de la clé
Clé = OuvertureClé(HKEY_CURRENT_USER, CheminNomOrdinateur)
' Lecture de l'entrée
Nom = Trim$(LectureEntrée(Clé, "ComputerName"))
' Fermeture de cette clé
FermetureClé Clé
' Stockage de ce nom dans un emplacement personnalisé de la base de registre
' HKEY_CURRENT_USER\Mr Rom\Exemple d'utilisation des API
' Ouverture de la clé
Clé = OuvertureClé(HKEY_CURRENT_USER, CheminMisterRom)
' Ecriture de cette valeur
EcritEntrée Clé, "Nom de l'ordinateur", Nom
' Fermeture de cette clé
FermetureClé Clé
End If
' Ouverture de la clé
Clé = OuvertureClé(HKEY_CURRENT_USER, CheminMisterRom)
' Lecture de l'entrée
Nom = Trim$(LectureEntrée(Clé, "Nom de l'ordinateur"))
' Fermeture de cette clé
FermetureClé Clé
' Un message pour vous ...
MsgBox "Salut ! Le nom de votre ordinateur est : "+Nom, vbInformation, "Mr Rom"
End Sub
Conclusion
Prenez le temps d'essayer les fonctions que j'ai écries, elles sont sensés simplifier la vie. Il y a un bon paquet d'API concernant la base de registre, je n'en n'ai moi-même utilisé qu'une bonne partie. Le seul inconvénient majeur est la conversion des paramètres et les conventions d'appels du C.
Je crois qu'il n'y a pas de bug dans le code que je vous ai fournis, ni dans le module Registre.bas (je l'utilise depuis des lustres sans problème apparent ...)
Si le besoin se fait se sentir, je peux écrire une petite doc détaillée sur la méthode d'accès et les fonctions les plus importantes.
A+
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[WINDOWSPHONE7] LECTEUR DE FLUX RSS[WINDOWSPHONE7] LECTEUR DE FLUX RSS par Vko
Parce que j'aime pas tester à moitié, je me suis amusé à développer un petit lecteur de flux RSS avec un look qui vous rappellera surement quelque chose :) La RC de Visual Studio est plutôt molle mais fonctionne correctement. L'émulateur est pas...
Cliquez pour lire la suite de l'article par Vko [WP7] L'éMULATEUR WINDOWS PHONE 7 EST MULTITâCHE[WP7] L'éMULATEUR WINDOWS PHONE 7 EST MULTITâCHE par KooKiz
Une question qui reste en suspend concernant Windows Phone 7 est de savoir si le système permettra à plusieurs applications de s'exécuter simultanément, ou si un système de mise en pause similaire à celui de l'iPhone sera adopté. Même si cela ne perm...
Cliquez pour lire la suite de l'article par KooKiz PRéSENTATION CLUB MOSS CE JOUR "LA NOUVELLE ARCHITECTURE DE SERVICES SHAREPOINT 2010".PRéSENTATION CLUB MOSS CE JOUR "LA NOUVELLE ARCHITECTURE DE SERVICES SHAREPOINT 2010". par Patrick Guimonet
Ca y est la sortie RTM de SharePoint 2010 est annoncée pour le 16 avril 2010 (annonce faite ce jour par Erol Giraudy lors de la réunion du club MOSS). Vous pourrez trouver ici les slides de ma présentation du jour dans le cadre du club MOSS : 201...
Cliquez pour lire la suite de l'article par Patrick Guimonet [WINDOWPHONE7] PREMIERS PAS[WINDOWPHONE7] PREMIERS PAS par Vko
Hop voici les premiers pas avec les outils de développement pour Windows Phone 7. Premier changement suite à l'installation des outils : les type de projets pour la plateforme Windows Phone 7. Les projets se découpent en deux groupes : Les projet...
Cliquez pour lire la suite de l'article par Vko [WP7] LE SDK DE WINDOWS PHONE 7 EST DISPONIBLE ![WP7] LE SDK DE WINDOWS PHONE 7 EST DISPONIBLE ! par KooKiz
Comme le titre l'indique, une première CTP du kit de développement pour Windows Phone 7 est disponible. Basé sur Visual Studio 2010 Express, il propose de développer des applications pour WP7 en Silverlight ou XNA 4. Un émulateur est bien entendu de l...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|