Visual Basic - Problemas con esta API

Life is soft - evento anual de software empresarial
 
Vista:

Problemas con esta API

Publicado por Deyvi Pacheco (7 intervenciones) el 26/05/2005 20:21:46
HOla amigos, estoy tratando de trabajar con la RegSetValueEx y tengo ciertos problemas....
Necesito Modificar el valor de una Clave de Hkey_Local_Machine, pero el valor de la clave es de tipo DWord, asi que no se como usar la Api, me sale perfecto cuando utlizao esa api aplicandole valores de tipo String, pero con DWord tengo problemas... alguien puede ayudarme... gracias de antemano
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:Problemas con esta API

Publicado por Benjo (679 intervenciones) el 27/05/2005 00:00:13
Una funciòn típica sería esta
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
Public Const REG_SZ = 1 ' Unicode nul terminated string
Public Const REG_DWORD = 4 ' 32-bit number

Function SaveDword(ByVal Hkey As Long, ByVal strPath As String, ByVal strValueName As String, ByVal lData As Long)
Dim lResult As Long
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(Hkey, strPath, keyhand)
lResult = RegSetValueEx(keyhand, strValueName, 0&, REG_DWORD, lData, 4)
'If lResult <> error_success Then Call errlog("SetDWORD", False)
r = RegCloseKey(keyhand)
End Function

Espero que te sea útil
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

RE:Problemas con esta API

Publicado por Deyvi Pacheco (7 intervenciones) el 27/05/2005 18:30:48
Muchas Gracias amigo, me funciono a la perfeccion!
LWP...The Best!!!
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