No puedo Registrar mi clave para iniciar con Windows :(

[antonio2005pe]

Hola amigos, lo que quiero hacer es poner un checkbox en mi aplicacion asi para ver si el usuario quiere que la aplicacion se ejecute o no al iniciar windows, este es mi codigo, lo probe en la raiz de HKEY_LOCAL_MACHINE y funciono pero no me funciona con la ruta completa :(

Dim inicio As Object
Set inicio = CreateObject("WScript.Shell")
inicio.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run" & App.EXEName, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
Set inicio = Nothing

Tengo Windows 7 de 64 bits

Gracias.

[lokoman]

Hola!!
Otra forma... pon una copia en "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"

Código vb:

filecopy app.path & "\MiExe.exe" , "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\MiExe.exe"
 

[antonio2005pe]

Iniciado por lokoman

Hola!!
Otra forma... pon una copia en "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"

Código vb:

filecopy app.path & "\MiExe.exe" , "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\MiExe.exe"
 

muchas gracias, pero yo queria trabajar con el registro de windows ya que paran eliminando del menu inicio :/

[pkj]

Puede que tu fallo esté en que te falta una barra invertida. Debes estar creando una nueva seccion llamada RunYLARUTAATUEJECUTABLE.

Usa esto a ver:
inicio.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"

Saludos

[ComprasDesdeCasa]

mmm.... Creo que tienes un espacio adicional en CurrentVersion entre las dos "r". La clave correcta es: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run

Saludos.

[pkj]

Es cierto. Ha sido un lapsus mío.

Ese espacio lo añade el editor de mensajes del foro cuando le parece.
Seguramente la línea original que antonio2005pe insertó no lo contenía, pero yo lo he visto y tenía pensado eliminarlo. El caso es que al final parece ser que lo olvidé.

La línea sería (si no se me insertan espacios adicionales):

inicio.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"

Tampoco me he parado a probar si funciona. Solamente he visto que, sin la barra invertida que he incluido, el código no debería funcionar correctamente. Quizá tampoco funcione de esta forma.

Saludos