Сообщество Чайников

Вопрос

Как пользоваться функцией RegQueryValueEx?

Ответ

RegQueryValueEx — Функция считывает значения параметра

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

'-=[ Основные параметры ]=-
'hKey — манипулятор ключа
'lpValueName — имя читаемого параметра
'lpData — заполняется значением заданного параметра
'-=[ Пример ]=-

Dim Result As Long
Dim DWResult As Long
Dim STResult As String
STResult = Space(255)
'// Находим манипулятор нужного ключа
RegOpenKeyEx HKEY_CURRENT_USER, "MyProgram\Options", 0, KEY_ALL_ACCESS, Result
'// Считываем значения числового параметра с именем DWordValue
RegQueryValueEx Result, "DWordValue", 0, 0, DWResult, 4
'// Считываем значения строкового параметра с именем StringValue
RegQueryValueEx Result, "StringValue", 0, 0, ByVal STResult, Len(STResult)
RegCloseKey Result '// Закрытие ключа
'// Выводим значение параметров
MsgBox DWResult '// Числовое
MsgBox STResult '// Строковое

Vovan-VE

СМ. файл reg.zip

Хвастунов Михаил