Подскажите почему у меня на платформе 98 винди фун-я RegQueryValueEx работает норммально а на платформе nt не работает возвращает ошибку 5

Function GetBIOSInformation() As Long
Dim rc As Long
Dim hKey As Long
Dim Buffer As String
Dim Reserved As Long
Dim dType As Long
Dim buft As Date
Dim Buf(100) As Byte
Dim i As Integer
Dim PlatformId As Long
Dim rstBIOS As DAO.Recordset
Dim strPath As String
Dim strLeft As String
Dim j As Integer
Dim ntype As Long
PlatformId = GetPlatform

Set rstBIOS = RegDatabase.OpenRecordset("SELECT Path,BIOSDN from kWinVersion where PlatformId = " & PlatformId)
If PlatformId = -1 Or rstBIOS.EOF Then
GetBIOSInformation = 0
Exit Function
End If
strPath = rstBIOS![Path]
j = InStr(1, strPath, "\")
strLeft = Left(strPath, j - 1)

rc = RegOpenKeyEx(HKEY_LOCAL_MACHINE, strLeft, REG_OPTION_VOLATILE, READ_CONTROL, hKey)
strPath = Right(strPath, Len(strPath) - j)
While Len(strPath) > 0
j = InStr(1, strPath, "\")
strLeft = Left(strPath, j - 1)

rc = RegOpenKeyEx(hKey, strLeft, REG_OPTION_VOLATILE, READ_CONTROL, hKey)
strPath = Right(strPath, Len(strPath) - j)
Wend
rc = RegQueryValueEx(hKey, rstBIOS![BIOSDN], Reserved, ntype, Buf(0), 35)
i = 0
Buffer = ""
While Buf(i) <> 0
If Chr(Buf(i)) <> "/" Then Buffer = Buffer + Chr(Buf(i))
i = i + 1
Wend
If val(Buffer) < 0 Then
GetBIOSInformation = val(Buffer) * (-1)
Else
GetBIOSInformation = val(Buffer)
End If



End Function

BIOSDN - на 98 "BiosDate" на nt "SystemBiosDate"
Путь в регистре формируется в зависимости от платформы

aleks2 serg450Подскажите почему у меня на платформе 98 винди фун-я RegQueryValueEx работает норммально а на платформе nt не работает возвращает ошибку 5



Насколько я помню 5 - отказ доступа. Но лучше поинтересоваться текстом ошибки через функцию WinAPI: FormatMessage.
так и есть - отказ доступа...