Je souhaiterais récupérer, dans la base de registre, le chemin d'une application installée.
Mon programme (ci-dessous) semble fonctionner pour récupérer la valeur d'un clé dans la base de registre, mais me retourne un type de valeur "REG_NONE" sur le nom "Défaut" de la clé "InstallPath", alors qu'il y a une chaîne de caractère donnant le chemin de l'application.
Quelqu'un peut-il m'aider à comprendre pourquoi je ne peux pas lire le contenu de cette clé?
Merci beaucoup de l'aide que vous pourrez m'apporter.
Dans un module, je déclare:
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal _
hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired _
As Long, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Const HKEY_CURRENT_USER = &H80000001
Public Const ERROR_SUCCESS = 0&
Public Const REG_SZ = 1
Public Const KEY_READ = &H20019
Private Sub RechercheAcro4()
Dim hKey As Long
Dim Path As String
Dim KeyHand As Long
Dim Resultat As Long
Dim sName As String
Dim datatype As Long
Dim strBuf As String
Dim slength As Long
D'après mon expérience avec la classe cRegistry (cf: http://vbaccelerator.com), pour aller prendre la valeur de "(Default)", il suffit de mettre rien (soit "") pour le nom de la clé.
