[VB] [VB] Leer y escribir el registro de Windows

ok... asi a grandes razgos, tenes 3 formas
forma 1) WINAPI... lee sobre las apis para usar el registro (son las q empiezan con Reg*), y ya tas...
forma 2) usa el objeto WScript.Shell, en especial su metodo RegWrite
forma 3) usa algun 3rd party activex y al carajo...

yo iria x la forma 1 si tenes tiempo, forma 2 si tas pajero...

Links:
forma 1)
http://msdn.microsoft.com/library/de..._functions.asp
forma 2)
http://msdn.microsoft.com/library/de...thregwrite.asp

K

aja, yo quiero que en una label aparezca el valor de una entrada del registro,
yo hago esto:
Private Sub actualname_Load()
actualname.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Winmine\Nam e1")
End Sub

actualname es el nombre de la label. pero asi como lo pongo no funca, que tengo que hacer para que salga bien????
Gracias
y Saludosssssssss

vale leer los links q postie...
anywa, como no tengo nada mejor q hacer, te lo codeo de bueno q soy...
asumo q el form se llama "actualname" y el label "Label1"
go nuts

K

man, capo total, entendi todo a la perfeccion, pero hay una cosa que no, como escribir en el registro, pero no que siempre sea lo mismo como por ejemplo:
lo que yo quiero hacer es que el registro se edite dependiendo de un valor que yo entre en un textbox, pero esto no se como hacerlo, me imagino que hay que incertar un commandbutton. Pero no se como relacionar el RegWrite con lo que se tiene qeu reemplazar dependiendo del textbox.
Muchas gracias por la ayuda, (es mi primer programa oficialmente) (espero que sepan entender)
saludosssss

donde Actualizar es un commandbutton q apretas para grabar, y Text1 un text box cuyo valor vamos a escribir

K

Gracias!!!!!
por todooooooooooooo
saludos

Hola
Necesito escribir en "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run", pero no pasa nada y tampoco sale error...
El código que utilizo es:

Private Sub Command1_Click()
Dim sh As Object
Set sh = CreateObject("WScript.Shell")
sh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run", "c:\ejemplo.exe"
Set sh = Nothing
End Sub

Me ayudan???
Gracias