Visual Basic - Reguistro

Hola me podrian decir como ago supongamos que al apretar un boton ponga en el reguistro que se ejecute la calculadora.exe de windows al PRENDER EL PC e encontrado mucho esto :HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Current Version\Run
pero no se como aplicarlo
:( gracias .

¿Has probado de una manera mucho más fácil?, es decir,simplemente haz desde ese botón un Filecopy con el programa que quieras lanzar y lo copias en la carpeta de inicio de Windows.

Esto te debe funcionar

Si tienes problemas escribe otra vez

Un saludo. AVERSINOSVEMOS

¿Has probado de una manera mucho más fácil?, es decir,simplemente haz desde ese botón un Filecopy con el programa que quieras lanzar y lo copias en la carpeta de inicio de Windows.

Esto te debe funcionar

Si tienes problemas escribe otra vez

Un saludo. AVERSINOSVEMOS

Const REG_SZ = 1
Const REG_BINARY = 3
Const HKEY_LOCAL_MACHINE = &H80000002

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
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 RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 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

Private Sub Command1_Click()
SaveString HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Cal", "c:\winnt\system32\calc.exe"
End Sub

Private Sub Command2_Click()
DelSetting HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Cal"
End Sub

Private Sub Form_Load()
Command1.Caption = "PONER CALCULADORA"
Command2.Caption = "QUITAR CALCULADORA"
End Sub

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
RegCreateKey hKey, strPath, Ret
RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
RegCloseKey Ret
End Sub
Sub DelSetting(hKey As Long, strPath As String, strValue As String)
Dim Ret
RegCreateKey hKey, strPath, Ret
RegDeleteValue Ret, strValue
RegCloseKey Ret
End Sub