Lire dans une base de registreRésolu

Question

J'ai besoin de lire la r&#233;solution de mon &#233;cran dans la base de registre. Pour cela j'utilise les fonctions suivantes :

Public Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1


Public Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" _
Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" ( _
ByVal hKey As Long) As Long

Call RegOpenKey(HKEY_CURRENT_USER, "Display\Settings", RegCle)
Call RegQueryValueEx(RegCle, "Resolution", 0, REG_SZ, RegValeur, Len(RegValeur))
Call RegCloseKey(RegCle)
On Error Resume Next
RegValeur = Left$(RegValeur, Len(RTrim$(RegValeur)) - 1)
RegValeur = CStr(RegValeur)

Probl&#232;me ma valeur est toujours = z&#233;ro

pouvez-vous m'aider ? Merci par avance

cs_DARKSIDIOUS · Accepted Answer

Tout d&#233;pend de la longueur de RegValeur : si tu lui donne une cha&#238;ne vide, il ne va rien te renvoyer !

Utilise plut&#244;t ceci :



Dim RegValeurAs string

Let RegValeur = Space(255)

 Call RegQueryValueEx(hKey, sKeyName, 0&, 0&, ByVal RegValeur, len(RegValeur))

RegValeur = Left$(RegValeur, Len(RTrim$(RegValeur)) - 1)


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_mti · Answer

Je suis un peu d&#233;butant et vu que vou avez l'air de bien vous y conn&#238;tre, je peut vous demander quelle(s) fonction(s) faut-il utiliser pour lire quelque chose dan la base de registre 


La programmation, c'est dur!!!

cs_DARKSIDIOUS · Answer

Mais non c'est pas dur, il faut juste comprendre la logique ;)



Pour lire une cl&#233; dans le registre, il faut tout d'abord l'ouvrir en
utilisant la fonction RegOpenKey comme tu la fais pour obtenir un
handle qui te permettra de manipuler la cl&#233;.



Ensuite, il faut utiliser la fonction RegQueryValueEx pour lire la
valeur de la cl&#233;. Il faut lui passer un buffer (il s'agit d'une
variable de type string qui contient des espaces, suffisament d'espace
pour stocker la valeur lue).



Enfin, lorsque tu as lu la valeur, il te suffit de fermer la cl&#233; avec la fonction RegCloseKey.


Tu avais donc juste avec ton code, mais je pense que ton buffer &#233;tait trop petit.


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

BruNews · Answer

dernier param de RegQueryValueEx est l'adresse d'un long, en entrée doit contenir taille de ton buffer et en sortie contient le nbr d'octets insérés dans ton buffer.

cs_mti · Answer

Merci DarK Sidious, mais ces d&#233;tails sont un peu techniques: est-ce que quelqun pourrais me donner un exemple pour:
 lire le contenu de HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
et afficher le nom de chaque chaine dans le tableau de contr&#244;les "txtChaines"
et afficher leur valeur dans le tableau de contr&#244;les "txtValeurs"
supprimer par ex la chaine "aoldial" 
modifier la valeur "C:\PROGRA~1\TECHCI~1\AOLSAV\AOLAgent.exe" 
en 
"D:\PROGRA~1\TECHCI~1\AOLSAV\AOLAgent.exe" (pour la chaine "aolsav")
cr&#233;er une nouvelle chaine 
"KAVPersonal50" 
avec la valeur 
""C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus Personal\kav.exe" /minimize"
modifier le nom de la chaine 
"STDSB" 
en 
"STDSA"
renommer la cl&#233; 
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
en
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run-
supprimer la cl&#233; HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Runonce
????????????????????????????????????????????????????????????????????

Merci pour votre r&#233;ponse, je sais que c'est beaucoup demander mais je suis un peu perdu avec ces histoires de RegQueryValueEx a qui il faut leur "passer?!?" des buffers, 
enfin voil&#224; je suis nul quoi bon non il ne faut pas se sous-estimer donc je dis: je ne sais pas encore comment faire.
Enfin bref: A L'AIDE !!!
Bon voil&#224; merci d'avance pour une r&#233;ponse de quelqun qui s'ennuie devant son ordi et qui n'a rien d'autre &#224; faire que de taper du code pour quelqun qu'il ne connait pas!!!!


La programmation (en vb6), c'est dur!!!

Lire dans une base de registre

5 réponses

Discussions similaires