[VBA] Lire une donnée (Par défaut) dans la base de registre...
1 réponse
HD
Bonjour,
Je voudrais pouvoir récupérer l'emplacement du fichier .wab d'Outlook
Express à partir d'un script VBA... La donnée se trouve à cet emplacement :
HKEY_CURRENT_USER\Software\Microsoft\WAB\WAB4\Wab File Name\
Mais le problème est que la donnée se trouve dans la valeur de chaîne (Par
défaut)... Je n'arrive pas à la récupérer...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
HD
Pour ceux que ça intéresse... J'ai fini par trouver quelque chose que j'ai adapté :
Option Explicit
'Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _ '(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'Cette declare n'est pas correcte: ' Private 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
Private 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
Private 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
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Pour ceux que ça intéresse... J'ai fini par trouver quelque chose que j'ai
adapté :
Option Explicit
'Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"
_
'(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'Cette declare n'est pas correcte:
' Private 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
Private 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
Private 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
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long)
As Long
Pour ceux que ça intéresse... J'ai fini par trouver quelque chose que j'ai adapté :
Option Explicit
'Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _ '(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'Cette declare n'est pas correcte: ' Private 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
Private 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
Private 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
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long