Как создать параметр реестра, при помощи 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 '

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы