Валентин67,
по вашей теме
Итак, начнем:
1. Нажмите кнопку "Пуск"
2. Выберите меню "Выполнить"
3. В появившемся диалоговом окне, в текстовое поле впишем: regedit
4. Нажмем кнопку "ОК"
5. В открывшемся редакторе реестра, выберем меню Реестр\Экспорт файла реестра
6. Впишем любое, понравившееся нам имя файла, и нажмем кнопку "Сохранить"
Теперь я за Вас спокоен, и мы можем перейти к нашей статье. Почему же такое "строгое" начало? Все дело в том, что Windows хранит в реестре все свои настройки и настройки программ, которые в нем работают. Начиная от внешнего графического вида и кончая соответствием расширений файлов их программам. Поэтому любое неграмотное вмешательство в реестр, может привести к тому, что Ваш Windows …
Необходимость в месте хранения информации возникла, наверно, с момента создания самой первой операционной системы (ОС). И по мере усложнения ОС – усложнялось и хранение самой информации о ней.
До появления Win 95 эта информация хранилась в многочисленных ini-файлах (директория Windows/System). Однако, по мере наращивания мощностей операционной системы – это становилось все более неудобным. И Win 95, уже как новая платформа, практически полностью перешел на хранение информации в реестре. Практически полностью – так мы говорим потому, что "осколки старого" все еще живы даже в Win Me (например, Win.ini, System.ini).
Visual Basic, как и любая другая среда программирования, должна уметь обращаться к информации системы. Что он и делает, используя ряд встроенных функций (см. Часть 1).
Но и тут все далеко неоднозначно. Если в VB3 и VB4 с помощью этих функций мы могли обратиться к любому ini-файлу, то, начиная с VB5, данные функции работают только с реестром и только с небольшой веточкой в нем. По-видимому, разработчики VB, предвидя нарастание увлечения программированием на VB и VBA, решили обезопасить реестр от вмешательства дилетантов. В большинстве работ начинающих программистов – этого вполне достаточно. А вот работа с ini-файлами теперь возможна только через API-функции (?). Как работать с ними см. Часть 2.
Ну и, наконец, мы считаем себя уже "маститыми" программистами и работать хотим со всем реестром. Бейсик позволяет делать и это, но опять же работая через API-функции. Как это делается, мы будем изучать в Части 3.
Часть 1. Встроенные функции работы с реестром в Visual Basic.
Таких функций всего четыре:
Имя функции
Описание функции
Получить значение параметра
Получить массив значений в указанной секции
Сохранить значение параметра
Удалить параметр (секцию)
Все они работают с одной конкретной веткой реестра, а именно: HKEY_CURRENT_USER/SOFTWARE/VB and VBA Program Settings/
. Обращение к данной ветке, происходит автоматически внутри функции, и поэтому прописывать столь длинный путь нет необходимости. Давайте чуть-чуть подробнее остановимся на каждой из этих функций.
1.
2.
GetSetting и SaveSetting – с ними Вы будете встречаться чаще всего.
GetSetting(appname, section, key[, default])
SaveSetting appname, section, key, setting
section – так же строковый параметр, определяет имя подпапки, где хранятся все значения. Таких папок может быть от одной до … Т.е. здесь Вы формируете наличие и расположение папок, так как Вам удобно.
key – строковый параметр, имя, под которым будет храниться Ваше значение. Как рекомендация, давайте ему осмысленные значения.
setting – непосредственно само сохраняемое значение.
[, default] – судя по квадратным скобкам, Вы уже догадались, что это необязательный параметр. Однако желательно все же его заполнять. По крайней мере – это избавит Вас от громоздкой проверки при запуске приложения самый первый раз, когда еще ничего в реестре Вашей программой не прописано.
Для закрепления материала маленький примерчик, демонстрирующий эти две функции.
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_Load()
Me.Left = GetSetting(App.EXEName, "Position", "Left", 0 )
Me.Top = GetSetting(App.EXEName, "Position", "Top", 0 )
Me.Caption = GetSetting(App.EXEName, "Other", "Caption", "Проба")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Position", "Left", Me.Left
SaveSetting App.EXEName, "Position", "Top", Me.Top
SaveSetting App.EXEName, "Other", "Caption", Me.Caption
End Sub
Функция DeleteSetting имеет чуть более простую структуру:
DeleteSetting appname, section[, key]
Параметры appname, section, key – имеют те же описания, что и в предыдущих функциях.
И снова небольшой пример. Добавьте код в Form_Unload, чтобы он выглядел так:
1.
2.
3.
4.
5.
6.
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Position", "Left", Me.Left
SaveSetting App.EXEName, "Position", "Top", Me.Top
SaveSetting App.EXEName, "Other", "Caption", Me.Caption
On Error Resume Next
DeleteSetting App.EXEName, "Position", "Left"
End Sub
Данная строка удаляет только один параметр ("Left"). Если же нам необходимо удалить весь подраздел, то строка должна выглядеть следующим образом:
1.
On Error Resume Next
DeleteSetting App.EXEName, "Position"
Ну и, наконец, последняя встроенная VB-функция, для работы с реестром.
GetAllSettings(appname, section)
Разместим на форме кнопку, которая будет считывать массив параметров подпапки "Position" и выдавать ее в заголовок. Не забудьте удалить последние две строки в Form_Unload, посвященные, удалению параметров.
Добавим код для кнопки:
1.
2.
3.
4.
5.
6.
7.
Private Sub Command1_Click()
Dim arrSettings As Variant, intLoop As Integer
Me.Caption = vbNullString
arrSettings = GetAllSettings(App.EXEName, "Position")
For intLoop = LBound(arrSettings, 1 ) To UBound(arrSettings, 1 )
Me.Caption = Me.Caption & " " & arrSettings(intLoop, 0 ) & "=" & arrSettings(intLoop, 1 )
Next
End Sub
С помощью функции GetAllSettings, считываем в переменную arrSettings двумерный массив значений. Затем циклом For-Next проходим от первого значения до последнего (в нашем случае их только два). И внутри цикла присваиваем заголовку программы считываемые значения. Обратите внимание, что второй компонент в массиве может принимать только значения 0 или 1. Если 0, то считывается заголовок параметра (key). Если 1, то считывается его значение (setting).
На этом со встроенными функциями бейсика, посвященных реестру можно закончить.
Работа с ini-файлами.
Как говорилось выше, ini-файлы – это наследие прошлого. Хорошо это или плохо? Однозначного ответа нет. Существует много сторонников ini-файлов, и их основным аргументом является доступность и легкость в редактировании. Что такое, по сути, ini-файл? Это текстовый файл, разбитый внутри на секции. Заголовок каждой секции заключен в квадратные скобки. Каждая секция состоит из строк, представляющих собой название параметра (ключ) и через равно (=) – его значение.
Все элементарно просто и понятно для восприятия. Однако это же самое является и отрицательным моментом. Учитывая, что нынешний Windows занимает порядка 150-300 мегабайт, имеет массу встроенных программ и каждой из них необходим свой собственный ini-файл. А, кроме того, мы инсталлируем у себя, как минимум, Офис. А как максимум еще 3-4 десятка программ. Представляете в какую "выгребную яму" превратится директория, хранящая ini-файлы? Кроме того, из-за своей простоты, ini-файлы не могут предоставить иерархическую структуру вложенности, то, что так легко удается реестру.
И в заключение: ini-файл – это отдельный файл, т.е. принципиально он может храниться в любом месте, а не только Windows\System. Насколько усложнится поиск необходимого файла, из-за кажущейся "простоты редактирования". Однако, несмотря на все минусы ini-файлы продолжают жить. Не так вольготно, как в Windows 3x, но все же. По-прежнему сохраняются 2 основных файла, несущих информацию о самом Windows (win.ini, system.ini). Поэтому давайте разберемся, как все-таки с ними надо работать. Встроенных VB-функций для работы с ini-файлами нет, однако существуют API-функции. Излагаемый ниже материал полностью приведен в Листинге. Его можно просто скопировать и оформить как отдельный модуль или класс, который подключается по мере надобности.
1.
2.
- Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal strSection As String, ByVal strKeyName As String, ByVal lngDefault As Long, ByVal strFileName As String) As Long
- Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal strSection As String, ByVal strKeyName As String, ByVal strDefault As String, ByVal strReturned As String, ByVal lngSize As Long, ByVal strFileName As String) As Long
- Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal strSection As String, ByVal strKeyNam As String, ByVal strValue As String, ByVal strFileName As String) As Long
1.
2.
- Private Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal strSection As String, ByVal strKeyName As String, ByVal lngDefault As Long) As Integer
- Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal strSection As String, ByVal strKeyName As String, ByVal strDefault As String, ByVal strReturned As String, ByVal intSize As Long) As Long
- Private Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strSection As String, ByVal strKeyName As String, ByVal strValue As String) As Integer
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function GetValueInteger(strSection As String, strKey As String, strFile As String) As Integer
Dim intValue As Integer
On Error GoTo PROC_ERR
intValue = GetPrivateProfileInt(strSection, strKey, 0 , strFile)
GetValueInteger = intValue
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueInteger"
Resume PROC_EXIT
End Function
Данная функция возвращает целочисленное значение из ini-файла. Где имя секции – strSection, имя ключа – strKey и strFile – полный путь к ini-файлу.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Function GetValueString(strSection As String, strKey As String, strFile As String) As String
Dim strBuffer As String * 256
Dim intSize As Integer
On Error GoTo PROC_ERR
intSize = GetPrivateProfileString(strSection, strKey, "", strBuffer, 256 , strFile)
GetValueString = Left$(strBuffer, intSize)
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueString"
Resume PROC_EXIT
End Function
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function SetValue(strSection As String, strKey As String, strValue As String, strFile As String) As Integer
Dim intStatus As Integer
On Error GoTo PROC_ERR
intStatus = WritePrivateProfileString(strSection, strKey, strValue, strFile)
SetValue = (intStatus <> 0 )
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "SetValue"
Resume PROC_EXIT
End Function
- Private Declare Function GetPrivateProfileSection Lib "KERNEL32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Для нее так же напишем функцию-"обертку".
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Public Function GetSection(strSection As String, strFile As String)
Dim strBuffer As String * 512
Dim intSize As Integer
Dim strTemp As String
Dim intTemp As Integer
Dim Index As Integer
Dim arrSection() As String
Dim key As String, value As String, str As String
On Error GoTo PROC_ERR
intSize = GetPrivateProfileSection(strSection, strBuffer, 512 , strFile)
strTemp = Left$(strBuffer, intSize)
Do Until Len(strTemp) = 0
intTemp = InStr( 1 , strTemp, Chr( 0 ))
ReDim Preserve arrSection( 1 , Index) As String
str = Mid(strTemp, 1 , intTemp)
key = Mid(str, 1 , InStr( 1 , str, "=") - 1 )
value = Mid(str, InStr( 1 , str, "=") + 1 )
arrSection( 0 , Index) = key
arrSection( 1 , Index) = value
Index = Index + 1
strTemp = Mid(strTemp, intTemp + 1 , Len(strTemp))
Loop
GetSection = arrSection
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueString"
Resume PROC_EXIT
End Function
Давайте сделаем маленький пример, чтобы стало понятнее, как работает наша функция. В качестве примера возьмем всем известную игру "Минер". Расположите на форме кнопку и список. При нажатии на кнопку в список последовательно передаются значения из секции [Сапер].
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Command1_Click()
Dim i As Integer, arrList As Variant
List1.Clear
arrList = GetSection("Сапер", "C:\Windows\winmine.ini")
For i = 0 To UBound(arrList, 2 )
List1.AddItem arrList( 1 , i)
Next
End Sub
Часть 3. Работа с реестром.
Теперь мы подходим к самому главному: работе с реестром. Реестр в Windows служит хранилищем всех настроек. Любое неадекватное вмешательство может привести к краху всей системы. Поэтому, если Вы не выполнили указаний, данных в самом начале статьи – сейчас самое время их сделать. Остановимся чуть подробнее на структуре реестра. 2 основных его преимущества: сохранение всей информации в едином месте и иерархическая структура. Начнем с "самого верха". Здесь имеется 6 основных разделов (ключей):
1.
2.
3.
4.
5.
HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
HKEY_CURRENT_CONFIG
HKEY_DYN_DATA
Каждый из них отвечает за "свой" раздел работы. HKEY_CLASSES_ROOT – содержит данные, связывающие типы файлов (по расширениям) с приложениями, работающими с ними.
1.
2.
3.
4.
HKEY_CURRENT_USER – содержит данные, которые описывают профиль пользователя, т.е. внешний вид и поведение рабочего стола, данные различных программ, сетевые соединения. Именно здесь и сохраняются все основные настройки приложений, используемых в Windows, в том числе и VB.
HKEY_LOCAL_MACHINE – здесь хранятся настройки компьютера, общие для всех зарегистрированных пользователей.
HKEY_USERS – этот раздел хранит информацию о профилях каждого из зарегистрированных пользователей.
HKEY_CURRENT_CONFIG – включает в себя информацию о шрифтах, зарегистрированных на данном компьютере, а так же данные о принтерах.
HKEY_DYN_DATA – самый часто обновляемый раздел реестра, т.к. включает в себя часто изменяющиеся динамические данные.
1.
2.
3.
4.
5.
6.
7.
8.
9.
API-функция Описание
RegCloseKey Освобождает манипулятор раздела
RegCreateKeyEx Создает раздел, а если раздел существует, то просто открывает его. Это очень удобно, когда неизвестно: существует данный раздел реестра или нет
RegDeleteKey Удаляет раздел со всеми входящими в него подразделами
RegDeleteValue Удаляет заданный параметр из конкретного раздела
RegEnumKeyEx Возвращает имеющийся подраздел из конкретного раздела. Удобно использовать в цикле для получения всех подразделов конкретного раздела
RegEnumValue Аналогична предыдущей функции, с той лишь разницей, что возвращает параметр из конкретного раздела
RegOpenKeyEx Открывает заданный раздел
RegQueryValueEx Получает информацию о типе и данные для параметра с заданным именем.
RegSetValueEx Сохраняет данные в параметре реестра.
HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS
А когда Вы поймете суть работы функций, то заменить пути сохранения в реестре необходимых Вам данных не составит труда.
Создание раздела.
Создадим новый подраздел TestRegistry в вышеуказанной ветке. Расположим на форме кнопку 1.
2.
3.
4.
Command1. В Form_Load инициализируем наши переменные, отвечающие за путь в реестре.
Private Create As Long
Private SubKey As String
Private hKey As Long
1.
2.
3.
Private Sub Form_Load()
SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS"
hKey = HKEY_CURRENT_USER
End Sub
В обработке события кнопки попросим пользователя ввести Имя Подраздела. Затем проследим, чтобы перед названием стоял знак "\". И, наконец, проверим функцию, создающую новый подраздел.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Private Sub Command1_Click()
On Error GoTo ErrorRoutineErr:
Dim Reply As String
Reply = InputBox("Введите имя для создания подраздела:" & vbCrLf & "в разделе " & SubKey)
If Reply = "" Then
Exit Sub
End If
If Mid(Reply, 1 , 1 ) <> "\" Then
Reply = "\" & Reply
End If
If Reply = "" Then
MsgBox "Не могу создать подраздел."
Exit Sub
End If
If CreateRegKey(Reply) Then
MsgBox "Создан новый подраздел"
Else
MsgBox "Не могу создать подраздел."
End If
Exit Sub
ErrorRoutineErr:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Созданиие подраздела"
End Sub
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Function CreateRegKey(NewSubKey As String) As Boolean
On Error GoTo ErrorRoutineErr:
Dim phkResult As Long
Dim SA As SECURITY_ATTRIBUTES
CreateRegKey = (RegCreateKeyEx(hKey, SubKey & NewSubKey, 0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create) = ERROR_SUCCESS)
RegCloseKey phkResult
Exit Function
ErrorRoutineErr:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Созданиие подраздела"
CreateRegKey = False
End Function
Создание параметра.
После того, как раздел или подраздел создан, необходимо в нем создать параметр и присвоить ему значение. Допустим, в предыдущем шаге мы создали подраздел "TestRegistry". Теперь внесем имя параметра "Test1" и его значение "New Value". Для этого нам понадобится все та же форма и вторая кнопка на ней Command2. Инициализация переменных у нас уже описана выше, в предыдущем шаге. Добавим обработку нажатия на вторую кнопку. Запросим у пользователя сначала имя параметра, а затем его значение. И если все ОК – то сделаем запись.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Command2_Click()
Dim Reply1 As String, Reply2 As String
SubKey = SubKey & "\TestRegistry"
Reply1 = InputBox("Введите имя параметра:" & vbCrLf & "в разделе: " & SubKey)
If Reply1 = "" Then
Exit Sub
End If
Reply2 = InputBox("Введите значение параметра:" & vbCrLf & "в разделе: " & SubKey & vbCrLf & "для параметра: " & Reply1)
If Reply2 = "" Then
Exit Sub
End If
If Not SetRegValue(hKey, SubKey, Reply1, Reply2) Then
MsgBox "Не могу создать параметр."
End If
End Sub
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Function SetRegValue(hKey As Long, sSubKey As String, ByVal sSetValue As String, ByVal sValue As String) As Boolean
On Error GoTo ErrorRoutineErr:
Dim phkResult As Long
Dim lResult As Long
Dim SA As SECURITY_ATTRIBUTES
RegCreateKeyEx hKey, sSubKey, 0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create
lResult = RegSetValueEx(phkResult, sSetValue, 0 , REG_SZ, sValue, CLng(Len(sValue) + 1 ))
RegCloseKey phkResult
SetRegValue = (lResult = ERROR_SUCCESS)
Exit Function
ErrorRoutineErr::
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Созданиие параметра"
SetRegValue = False
End Function
Итак, у нас создан подраздел "TestRegistry", а в нем параметр "Test1". Располагаем на форме третью кнопку – Command3. Как и во всех предыдущих наших манипуляциях, вначале мы должны открыть раздел, а по окончании работы закрыть его, освободив манипулятор. Удаление параметра производится с помощью API-функции RegDeleteValue.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Command3_Click()
Dim phkResult As Long
Dim SA As SECURITY_ATTRIBUTES
SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS\TestRegistry"
RegCreateKeyEx hKey, SubKey, 0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create
If RegDeleteValue(phkResult, "Test1") = ERROR_SUCCESS Then
MsgBox "Параметр удален"
Else
MsgBox "Не могу удалить параметр"
End If
RegCloseKey phkResult
End Sub
В принципе, все различия между удалением параметра и удалением раздела (подраздела), заключаются только в использовании другой API-функции: RegDeleteKey. Все остальное – идентично. Размещаем на форме четвертую кнопку и удаляем раздел "TestRegistry".
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Command4_Click()
Dim phkResult As Long
Dim SA As SECURITY_ATTRIBUTES
SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS"
RegCreateKeyEx hKey, SubKey, 0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create
If RegDeleteKey(phkResult, "TestRegistry") = ERROR_SUCCESS Then
MsgBox "Подраздел удален"
Else
RegCloseKey phkResult
MsgBox "Не могу удалить подраздел"
End If
End Sub
В связи с тем, что мы удалили в предыдущей работе наш подраздел и его содержимое, давайте сначала восстановим удаленные параметры: Запустим на выполнение сначала первую кнопку, а затем вторую. Проверим через Regedit. У нас должно получиться: подраздел "TestRegistry", а в нем параметр "Test1" со значением "New Value". Добавим очередную кнопку Command5.
1.
2.
3.
Private Sub Command5_Click()
SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS\TestRegistry"
MsgBox GetValue(hKey, SubKey, "Test1", "Ничего нет")
End Sub
Обратите внимание, что сама функция возвращает тип Variant, т.к. значение параметра может быть не только строковым числом.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Function GetValue(hKey As Long, sSubKey As String, sKey As String, sDefault As String) As Variant
On Error GoTo ErrorRoutineErr
Dim phkResult As Long
Dim lResult As Long
Dim sBuffer As String
Dim lBuffSize As Long
'Создаем буфер
sBuffer = Space( 255 )
lBuffSize = Len(sBuffer)
RegOpenKeyEx hKey, sSubKey, 0 , 1 , phkResult
lResult = RegQueryValueEx(phkResult, sKey, 0 , 0 , sBuffer, lBuffSize)
RegCloseKey phkResult
If lResult = ERROR_SUCCESS Then
GetValue = Left(sBuffer, lBuffSize - 1 )
Else
GetValue = sDefault
End If
Exit Function
ErrorRoutineErr::
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Получение параметра"
GetValue = ""
End Function
Подробно изучив выше перечисленные функции и процедуры, Вы, при необходимости, можете их использовать для получения названий подразделов или значений всех параметров подраздела. Собирать эти названия можно в массив или, например, напрямую – в ListBox. Перебор параметров осуществляется с помощью цикла Do … Loop (или While … Wend кому как привычнее), до тех пор пока искомое значение равно ERROR_SUCCESS.
Разобравшись со всеми функциями, Вы можете использовать представленный Листинг, как отдельный модуль, или преобразовать его в отдельный класс. Обратите внимание: в представленном листинге функции отображены в несколько ином виде – более глобальном.
Часть 4. Работа с реестром через подключаемые библиотеки.
Изначально эта часть не была запланирована для данной статьи. Подтолкнул меня к написанию один из "Советов…" Андрея Колесова и Ольги Павловой, которые вот уже на протяжении ряда лет публикующих в "Компьютер-Пресс" свои интересные находки по VB и VBA. Так вот, оказывается, что при инсталляции VB происходит установка на Ваш компьютер одной маленькой библиотеки (всего 32 Кб) - REGTOOL5.DLL. Для любознательных указываю полный путь: …\Program Files\Microsoft Visual Studio\Common\Tools\APE\REGTOOL5.DLL. Она содержит всего 4 функции для работы с реестром, однако использование этих функций значительно упрощает доступ к реестру.
Итак, для начала работы подключим данную библиотеку к нашему проекту (Проект Standard EXE; форма + 5 кнопок на ней). Для подключения выберем меню: Project/References и в открывшемся диалоговом окне отметим опцию Registry Access Functions. Не забудем нажать ОК :-). Теперь, когда библиотека подключена к проекту, небходимо объявить переменную. Делаем это в разделе деклараций
1.
2.
3.
4.
5.
Option Explicit
Dim Reg As Registry
При загрузке формы – инициализируем ее
Private Sub Form_Load()
Set Reg = New Registry
End Sub
А при выгрузке – не забудем ее уничтожить.
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Form_Unload(Cancel As Integer)
Set Reg = Nothing
End Sub
Теперь займемся функциями. Как я говорил выше их всего 4 : UpdateKey, DeleteKey, GetKeyValue, GetNextValue. А так же имеется 5 констант:
Const HKEY_CLASSES_ROOT = - 2147483648 (&H80000000)
Const HKEY_CURRENT_USER = - 2147483647 (&H80000001)
Const HKEY_LOCAL_MACHINE = - 2147483646 (&H80000002)
Const HKEY_PERFORMANCE_DATA = - 2147483644 (&H80000004)
Const HKEY_USERS = - 2147483645 (&H80000003)
Результаты работы наших функций можно проверять через Редактор Реестра. Только не забудьте обновлять содержимое его окна после выполненных манипуляций (клавиша F5). Для нашего примера выберем все ту же (самую безопасную в смысле экспериментов) ветку реестра: HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings.
NB! Данная библиотека может работать с любой веткой реестра.
Присвоим нашей ПЕРВОЙ кнопке возможность создания нового параметра и значения для него.
1.
2.
3.
4.
Private Sub Command1_Click()
Reg.UpdateKey HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "FirstValue", "Test"
Reg.UpdateKey HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "SecondValue", "Test2"
MsgBox "Создана папка TestRegistryDLL и 2 параметра в ней"
End Sub
1.
2.
3.
Private Sub Command2_Click()
Reg.UpdateKey HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "SecondValue", "New Test"
MsgBox "Изменено значение 2-го параметра в папке TestRegistryDLL"
End Sub
1.
2.
3.
4.
5.
6.
Private Sub Command3_Click()
If Reg.DeleteKey(HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL") Then
MsgBox "Удалена папка TestRegistryDLL"
Else
MsgBox "Ничего не получилось :("
End If
End Sub
Ну и, наконец, оставшиеся две функции служат для поиска (получения) значений указанных параметров. Запишем код для ЧЕТВЕРТОЙ кнопки. Основа кода взята из "Советов …" Андрея Колесова
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Command4_Click()
Dim KeyFound As Boolean, strValue As String
strValue = ""
KeyFound = Reg.GetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "SecondValue", strValue)
If KeyFound Then
MsgBox strValue
Else
MsgBox "Такого параметра нет"
End If
End Sub
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Command5_Click()
Dim KeyFound As Boolean, strName As String, strValue As String
strValue = ""
Do
KeyFound = Reg.GetNextValue(HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", strName, strValue)
If KeyFound = False Then Exit Do
MsgBox strName & " = " & strValue
Loop While KeyFound
MsgBox "Больше параметров нет!"
End Sub
В заключение: Не только эта библиотека имеет доступ к реестру. Если Вы подключили к своему проекту библиотеку Word'а (начиная с версии 8) например для проверки орфографии, то параллельно, для получения значений реестра можно воспользоваться ее объектом System, а конкретнее свойствами PrivateProfileString и ProfileString. Что самое смешное, таких возможностей не имеет ни Excel, ни Access, ни PowerPoint, ни FrontPage. Ох уж этот Microsoft :). |
