Visual Basic - Leer / Escribir en el regedit

Life is soft - evento anual de software empresarial
 
Vista:

Leer / Escribir en el regedit

Publicado por Karlos Ruiz (7 intervenciones) el 24/07/2001 13:32:05
Me gustaría saber como se pueden buscar datos datos en el registro, si no están escribirlos y por último leerlos. Muchas gracias. Si por un casual no me he explicado bien decirmelo e intentaré decirlo de otra manera pero creo que está claro.

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:Leer / Escribir en el regedit

Publicado por BENJO (10 intervenciones) el 25/07/2001 00:49:10
Podes leer escribir y borrar datos del registro con una función de VB que se llama GetSetting, SaveSetting,DeleteSetting.
No obstante ello sólo podés trabajar sobre una sola Key llamada VBA

Para poder acceder a todo el registro, tendrías que utilizar las APIS de Windows, con las Funciones

Para abrir la clave
Declare Function RegOpenKey Lib "advapi32.dll"
Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String,
phkResult As Long) As Long
Para cerrar la clave
Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey"
(ByVal hKey As Long) As Long
Para crear o abrir la clave
Declare Function RegCreateKey Lib "advapi32.dll"
Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String,
phkResult As Long) As Long
Para Borrar una clave
Declare Function RegDeleteKey Lib "advapi32.dll"
Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
As Long
Para Borrar un valor
Declare Function RegDeleteValue Lib "advapi32.dll"
Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As
String) As Long
Para Guardar una Clave
Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA"
(ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As Any)
As Long

Para Guardar un Valor
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 Lon
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