VBNet - Форум

Вопрос: Alex(S) Добавлено: 02.12.03 21:09

Автор вопроса: NeForm@t | Web-сайт: g--k.newmail.ru | ICQ: 252999255

Слушай вот этот код ролностью работает:
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

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

Alex(S)

Вопросов: 8
Ответов: 31

Web-сайт: sapr7.by.ru
Профиль | | #1

Добавлено: 02.12.03 22:30

Спасибо конечно за два ответа, но на relib`е мог бы и не отвечать, все равно пасу оба форума.

Код действительно работает. Единственная разница между твоим кодом и моим был в инициализации функции RegQueryValueEx, а точнее разница была в том, что у тебя параметр lpData этой функции описывался без приставки ByVal, а у меня он был описан с ней, так как эта же функции у меня получает строковые параметры из реестра. Без ByVal строковые параметры не хотят браться.

Ответить

Номер ответа: 2
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #2

Добавлено: 02.12.03 22:40

Govnuk

Ответить

Страница: 1 |