Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpszValueName As String, ByVal dwReserved As Long, ByVal fdwType As Long, ByVal lpbData As Any, ByVal cbData As Long) As Long
Private Const HKEY_CURRENT_USER = &H80000001 'Valor de la clave a modificar
Private sRuta as string
'Guardamos la ruta de la clave
sKey = "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN"
'Abrimos la clave
RegOpenKeyEx HKEY_CURRENT_USER, sKey, 0&, KEY_WRITE, hKey
'Creamos el valor del registro
RegSetValueEx hKey, sValNom, 0&, REG_SZ, sArchivo & " /S", Len(sArchivo) + 4
Suete.
