Visual Basic - escribir en el registro de windows

Life is soft - evento anual de software empresarial
 
Vista:

escribir en el registro de windows

Publicado por Óscar (37 intervenciones) el 08/10/2003 19:41:27
Quisiera saber como puedo escribir en el registro de windows, para el tema de los registros de programas y demás.

MUCHAS GRACIAS!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:escribir en el registro de windows

Publicado por Victor Collado (51 intervenciones) el 08/10/2003 21:56:45
Hola
Para escribir y crear una nueva key en el registro debes declarar primero lo siguiente en General

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const regKey = "Software\Nombre de Compañia\Producto"
Const REG_SZ = 1

despues puedes llamar a estas funciones para crear y escribir la key, como ves key ira dentro de HKEY_LOCAL_MACHINE y \ Software\Nombre de Compañia\Producto

En un evento lo siguiente:

Dim keyValue As String
Dim retValue As Long
Dim keyID As Long

retValue = RegCreateKey(HKEY_LOCAL_MACHINE, regKey, keyID)
keyValue = "Nuestro Software"
retValue = RegSetValueEx(keyID, "Nombre", REG_SZ, 0&, ByVal keyValue, Len(keyValue) + 1)
keyValue = "1.00.1"
retValue = RegSetValueEx(keyID, "Version", 0&, _
REG_SZ, ByVal keyValue, Len(keyValue) + 1)
MsgBox "Registry updated"

Cambia tus valores

Saludos

Victor Collado



Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar