Как создать параметр реестра, при помощи API - функций - VB
Формулировка задачи:
Собственно вопрос соответствует теме:
напишите функцию которая позволит создавать параметры в открытом ключе реестра... вроди просто, но я ничего не нашел...
Решение задачи: «Как создать параметр реестра, при помощи API - функций»
textual
Листинг программы
Public Sub WriteToRegistry(ByVal sKey As String, ByVal sValue As String) Dim lRegKey As Long, retVal As Long retVal = RegCreateKey(HKEY_LOCAL_MACHINE, 'SoftwareMy Program', lRegKey) ' (создаст ключ, только если он ещё не существует; иначе - просто его откроет) If retVal <> 0 Then Exit Sub ' << не удалось создать/открыть ключ RegSetValueEx lRegKey, sKey, 0, REG_SZ, ByVal sValue, Len(sValue) RegCloseKey lRegKey End Sub ' Public Function ReadFromRegistry(ByVal sKey As String) As String Dim lRegKey As Long, stBuff As String, stLen As Long, retVal As Long RegOpenKey HKEY_LOCAL_MACHINE, 'SoftwareMy Program', lRegKey If lRegKey Then stBuff = Space$(100) retVal = RegQueryValueEx(lRegKey, sKey, 0&, REG_SZ, '', stLen) retVal = RegQueryValueEx(lRegKey, sKey, 0&, REG_SZ, ByVal stBuff, stLen) If retVal = 0 Then ReadFromRegistry = StripTerm(stBuff) Else ReadFromRegistry = '' End If RegCloseKey lRegKey Else ReadFromRegistry = '' End If End Function ' Public Function StripTerm(ByVal st As String) As String StripTerm = Left$(st, InStr(1, st, vbNullChar) - 1) End Function ' ' .......... ' WriteToRegistry 'InstallPath', 'E:SETUP '
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д