Параметры REG_DWORD из реестра

Как получить в прогу параметры типа REG_DWORD. У меня всегда выводятся нули. Прежде чем отвечать пожалуйста попробуйте у себя код на параметре HKEY_CURRENT_USERConsoleCursorSize

0

Слушай вот этот код ролностью работает:

Private Declare Function RegCloseKey Lib 'advapi32.dll' (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib 'advapi32.dll' Alias 'RegOpenKeyA' (ByVal hKey As Long, ByVal lpSubKey As String, phkResult 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, lpData As Any, lpcbData As Long) As Long
Private Const HKEY_CURRENT_USER As Long = &H80000001
Private Const ERROR_SUCCESS As Long = 0&
Private Const REG_DWORD As Long = 4
Function GetDword(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
Dim lResult As Long
Dim lValueType As Long
Dim lBuf As Long
Dim lDataBufSize As Long
Dim r As Long
Dim keyhand As Long
r = RegOpenKey(hKey, strPath, keyhand)
lDataBufSize = 4
lResult = RegQueryValueEx(keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
If lValueType = REG_DWORD Then
GetDword = lBuf
End If
End If
r = RegCloseKey(keyhand)
End Function
Private Sub Command1_Click()
MsgBox GetDword(HKEY_CURRENT_USER, 'Console', 'cursorsize')
End Sub

Кинь на форму бутон и запусти,если ничего не ролучиться то у тебя просто не ПРАВ!!!!

Govnuk