Crear y modificar un valor
Crear y modificar un valor de una clave específica puede hacerse mediante este pequeño procedimiento. SetValue necesita la clave con la que estará asociado el valor, el nombre del valor, el contenido y el tipo de dato (la función SetValueEx sólo soporta REG_SZ y REG_DWORD, pero puede ser modificada si es necesario). Especificando un nuevo contenido para un valor (sValueName) existente modificaremos el contenido actual del valor.
Private Sub SetValue (sKeyName As String, sValueName As String, _
vValueSetting As Variant, lValueType As Long)
Dim lRetVal As Long 'resultado de la funcion SetValueEx
Dim hKey As Long 'handle de la clave abierta
'abrir la clave especificada
lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, _
KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
RegCloseKey (hKey)
End Sub
Una llamada a :
SetValue "TestKey\SubKey1", "StringValue", "Hello", REG_SZ
creará un valor de tipo REG_SZ llamado "StringValue" con el contenido "Hello". Este valor está asociado a la clave SubKey1 de la clave TestKey.
En este caso, "TestKey" es una subclave de HKEY_CURRENT_USER, pero esto puede ser modificado cambiando la llamada a RegOpenKeyEx. Esta llamada falla si "TestKey\SubKey1" no existe. Para evitar este problema podemos emplear RegCreateKeyEx en vez de RegOpenKeyEx. RegCreateKeyEx abre la clave especificada si ya existe.
Necesitas ser usuario para ver los enlaces
Crear Usuario Hacer Sesion
Autor