Как создать ключ в реестре типа REG_EXPAND_SZ? - VB

Узнай цену своей работы

Формулировка задачи:

Есть у меня старый модуль:
Вызываю так:
Но ничего не создается! :( P.S. Я не настолько глуп, чтобы создавать ключ "Mykey/MykeyName" :)
И тишина...

Решение задачи: «Как создать ключ в реестре типа REG_EXPAND_SZ?»

textual
Листинг программы
Public Function SetValueEx(ByVal hKey As Long, sValueName As String, lType As Long, vValue As Variant) As String
 
Dim lValue As Long
Dim sValue As String
 
Select Case lType
Case REG_SZ
sValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
Case REG_EXPAND_SZ
sValue = vValue
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, vValue, Len(vValue))
End Select
 
End Function

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


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

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

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