скукотищаПоменял в выложенном Вами проекте объявление функции RegQueryValueEx и первый её вызов (получение размера). Падения прикратились.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Declare Function RegQueryValueEx& Lib "advapi32" Alias "RegQueryValueExA" ( _
ByVal hKey&, _
ByVal lpValueName$, _
ByVal lpReserved%, _
lpType&, _
Optional ByVal lpData$, _
Optional lpcbData&)
...
lDataLen = - 1
lResult = RegQueryValueEx(lPHK, sKeyName, 0 , 0 , , lDataLen)
...
Да, падения в моем рабочем (с реальными данными и в процессе их получения) также прекратились если этим воспользоваться. С одной стороны разумно.
lDataLen = -1 кстати лишнее (и ничем не обосновано), проверьте. Если убрать + Optional в декларациях + передавать пустой предпоследний параметр вместо нуля, то будет ERROR_SUCCESS все равно.
скукотищаДмитрий77,
нравится мне ERROR_SUCCESS :)
Может это правда только Ваша прихоть, не более?
Ведь первоисточник гласит:
первоисточник
If the buffer specified by lpData parameter is not large enough to hold the data, the function returns ERROR_MORE_DATA and stores the required buffer size in the variable pointed to by lpcbData. In this case, the contents of the lpData buffer are undefined.
--
If the lpData buffer is too small to receive the data, the function returns ERROR_MORE_DATA.
Это в общем то согласуется с моим рабочим вариантом как бы, не так ли?
При передаче нуля в lpData (szBuffer), он по определению всегда будет too small и никогда не будет large enough to hold the data, и всегда будет возвращать ERROR_MORE_DATA, ну кроме случая 2=Not Found, естественно.
А с другой стороны..да действительно, в оригинале 3 последние параметра Opt.
Как все-таки правильно то оставить?
I. Вариант мой первый:
1.
2.
3.
4.
5.
'Query lBuffSize
lResult = RegQueryValueEx(phkResult, szKey, 0 , 0 , 0 , lBuffSize)
'Create buffer
szBuffer = Space(lBuffSize)
'Query the value
lResult = RegQueryValueEx(phkResult, szKey, 0 , 0 , szBuffer, lBuffSize)
==============================================
II. Вариант мой второй:
1.
2.
3.
4.
5.
6.
7.
8.
'Query lBuffSize
lResult = RegQueryValueEx(phkResult, szKey, 0 , 0 , 0 , lBuffSize)
Debug.Print "lResult=" & lResult & ";lBuffSize=" & lBuffSize
If lResult = ERROR_MORE_DATA Then
'Create buffer
szBuffer = Space(lBuffSize)
'Query the value
lResult = RegQueryValueEx(phkResult, szKey, 0 , 0 , szBuffer, lBuffSize)
Debug.Print "lResult=" & lResult & ";lBuffSize=" & lBuffSize
===============================================
III. Или вариант аля-Ваш:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Declare Function RegQueryValueEx& Lib "advapi32" Alias "RegQueryValueExA" ( _
ByVal hKey&, _
ByVal lpValueName$, _
ByVal lpReserved%, _
lpType&, _
Optional ByVal lpData$, _
Optional lpcbData&)
...........
'Query lBuffSize
lResult = RegQueryValueEx(phkResult, szKey, 0 , 0 , , lBuffSize)
Debug.Print "lResult=" & lResult & ";lBuffSize=" & lBuffSize
If lResult = ERROR_SUCCESS Then
'Create buffer
szBuffer = Space(lBuffSize)
'Query the value
lResult = RegQueryValueEx(phkResult, szKey, 0 , 0 , szBuffer, lBuffSize)
Debug.Print "lResult=" & lResult & ";lBuffSize=" & lBuffSize
