VB2005EE et classe registry
Bonjour à toutes et tous !
Je coagule depuis 2 jours sur un problème avec une API windows. Elle me retourne régulièrement une erreur 87 (paramètre invalide). Malgré de nombreuses recherches, je n'ai trouvé que des codes identiques, et aucune réelle explication sur KeyOpenRegEx ... Peut-être vos yeux tout neufs et votre expérience pourront-ils m'aider à débloquer la situation ?
Je mets le code dessous (uniquement la partie concernée), et s'il vous plaît, soyez indulgents, je suis un vrai débutant !
Pour Info, le but est de lister tester la présence de SQL Express Edition, son numéro de version, et le cas échéant, les instances SQL installées ... Dans ce code, la variable "lngResult", résultat de l'ouverture de la clé, renvoie toujours la valeur 87...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
Option Explicit On
Imports System
Imports System.IO
Imports System.Text
Public Class DetectMSDE
'Déclaration des fonctions de l'API
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" _
(ByVal hKey As Integer, _
ByVal lpSubKey As String, _
ByVal ulOptions As Integer, _
ByVal samDesired As Integer, _
ByVal phkResult As Integer) As Integer
Private Declare Function RegEnumValue Lib "advapi32.dll" _
Alias "RegEnumValueA" _
(ByVal hKey As Long, _
ByVal dwIndex As Long, _
ByVal lpValueName As String, _
ByVal lpcbValueName As Long, _
ByVal lpReserved As Long, _
ByVal lpType As Long, _
ByVal lpData As String, _
ByVal lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
'Déclaration des constantes de l'API
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const ERROR_SUCCESS = 0&
Const SYNCHRONIZE = &H100000
Const STANDARD_RIGHTS_READ = &H20000
Const STANDARD_RIGHTS_WRITE = &H20000
Const STANDARD_RIGHTS_EXECUTE = &H20000
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const STANDARD_RIGHTS_ALL = &H1F0000
Const KEY_ALL_ACCESS = &H3F
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_READ = ((STANDARD_RIGHTS_ALL Or _
KEY_QUERY_VALUE Or _
KEY_ENUMERATE_SUB_KEYS Or _
KEY_NOTIFY) And (Not SYNCHRONIZE))
Const REG_DWORD = 4
Const REG_BINARY = 3
Const REG_SZ = 1
'Déclenchement de la détection (lecture du registre)
Private Sub TestDirV9(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim lngKeyHandle As IntPtr
Dim lngResult As Long
Dim lngCurIdx As Long
Dim strValue As String
Dim lngValueLen As Long
Dim lngData As Long
Dim lngDataLen As Long
Dim strResult As String
' Ouverture de la clé concernée
lngResult = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL", _
0&, _
KEY_READ, _
lngKeyHandle)
If lngResult <> ERROR_SUCCESS Then
MsgBox("Impossible d'ouvrir la clé.")
Exit Sub
End If |
Modification, sans résolution ...
Bonjour,
J'ai remplacé la ligne
Code:
1
2
3
4
5
6
|
lngResult = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL", _
0, _
KEY_READ, _
lngKeyHandle) |
Par
Code:
1
2
3
4
5
6
|
lngResult = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"\SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL", _
0, _
KEY_READ, _
lngKeyHandle) |
Mais sans succès, bien que ce soit également une véritable erreur dans mon code d'origine ... :oops:
Un début de soupçon de piste à me soumettre ?
Oliver
