Ejemplos usando el Api de windows para Visual basic

155 - Registrar el programa para que inicie junto con windows

Volver al Listado Api - Anterior - Siguiente

Contenido

Registrar el programa para que inicie junto con windows
Leer la clave para poder saber si la ruta de la aplicación ya se añadió
Relacionados

Registrar el programa para que inicie junto con windows

Ejemplo de las funciones Api para el registro , para grabar el path de nuestra aplicación y que pueda ejecutarse cuando inicia el sistema operativo

Este ejemplo lo hice en base a un Módulo para Manipular el registro mediante el Api

El mismo es mas simple ya que utiliza las funciones solo para establecer el valor y para eliminar el path de nuestro programa.

Las funciones que usa son:

RegOpenKeyEx: Abre la clave que se va a crear, modificar o eliminar
RegSetValueExString: Crea un nuevo valor de tipo cadena
RegSetValueExLong: Crea un nuevo valor de tipo DWORD ( para este ejemplo no es necesario )
RegDeleteKey: Elimina una clave del registro
RegDeleteValue: Elimina el valor
RegCloseKey: Cierra la clave abierta con RegOpenKeyEx

Para el ejemplo colocar dos CommandButton.

El Command1 crea el nuevo valor, es decir agrega la ruta de nuestra aplicación en la rama SOFTWARE\Microsoft\Windows\CurrentVersion\Run.

El Command2 elimina el valor

El ejemplo necesita un módulo bas y por supuesto un formulario

Código fuente en el módulo bas :

Option Explicit 'Declaración de constantes '**************************** Public Const HKEY_CLASSES_ROOT = &H80000000 Public Const HKEY_CURRENT_USER = &H80000001 Public Const HKEY_LOCAL_MACHINE = &H80000002 Public Const HKEY_USERS = &H80000003 Public Const REG_SZ As Long = 1 Public Const REG_DWORD As Long = 4 Private Const KEY_ALL_ACCESS = &H3F Private Const REG_OPTION_NON_VOLATILE = 0 'Declaración de las funciones api para el registro '************************************************* ' Cierra la clave abierta Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 'Abre una clave 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 'Establece un valor de tipo cadena Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" _ (ByVal hKey As Long, _ ByVal lpValueName As String, _ ByVal Reserved As Long, _ ByVal dwType As Long, _ ByVal lpValue As String, _ ByVal cbData As Long) As Long 'Establece un valor de tipo entero Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias _ "RegSetValueExA" (ByVal hKey As Long, _ ByVal lpValueName As String, _ ByVal Reserved As Long, _ ByVal dwType As Long, _ lpValue As Long, _ ByVal cbData As Long) As Long 'Elimina una clave Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" _ (ByVal hKey As Long, _ ByVal lpSubKey As String) 'Elimina un valor del registro Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" _ (ByVal hKey As Long, _ ByVal lpValueName As String) ' Función que elimina una clave especifica utilizando el Api RegDeleteKey Function EliminarClave(clave As Long, Nombre_clave As String) Dim Ret As Long ' Eliminar Ret = RegDeleteKey(clave, Nombre_clave) End Function ' Función que elimina un dato utilizando el Api RegDeleteValue Function EliminarValor(clave As Long, _ Nombre_clave As String, _ Nombre_valor As String) As Boolean Dim Ret As Long Dim Handle_clave As Long ' Abre la clave del registro indicada Ret = RegOpenKeyEx(clave, Nombre_clave, 0, KEY_ALL_ACCESS, Handle_clave) 'si el valor de retorno es distinto de 0 es por que hubo un error If Ret <> 0 Then EliminarValor = False Exit Function End If 'Elimina el valor del registro Ret = RegDeleteValue(Handle_clave, Nombre_valor) If Ret <> 0 Then EliminarValor = False Exit Function End If 'Cierra la vlave del registro abierta RegCloseKey (Handle_clave) ' OK EliminarValor = True End Function ' Función que establece un nuevo valor mediante el Api SetValueEx Function EstablecerValor(clave As Long, _ Nombre_clave As String, _ Nombre_valor As String, _ el_Valor As Variant, _ Tipo_Valor As Long) As Boolean Dim Ret As Long Dim Handle_clave As Long 'Abre la clave del registro indicada Ret = RegOpenKeyEx(clave, Nombre_clave, 0, KEY_ALL_ACCESS, Handle_clave) 'si el valor de retorno es distinto de 0 es por que hubo un error If Ret <> 0 Then EstablecerValor = False Exit Function End If 'Establece el nuevo dato Ret = SetValueEx(Handle_clave, Nombre_valor, Tipo_Valor, el_Valor) If Ret <> 0 Then EstablecerValor = False Exit Function End If 'cierra la clave abierta RegCloseKey (Handle_clave) 'Ok EstablecerValor = True End Function ' Función que establece y graba la entrada _ en el registro ( para datos de cadena y Dword) Private Function SetValueEx(ByVal Handle_clave As Long, _ Nombre_valor As String, _ Tipo As Long, _ el_Valor As Variant) As Long Dim Ret As Long Dim sValue As String Select Case Tipo ' Valor de tipo cadena Case REG_SZ sValue = el_Valor SetValueEx = RegSetValueExString(Handle_clave, _ Nombre_valor, 0&, _ Tipo, sValue, Len(sValue)) 'Valor Entero Case REG_DWORD Ret = el_Valor SetValueEx = RegSetValueExLong(Handle_clave, Nombre_valor, _ 0&, Tipo, Ret, 4) End Select End Function

Código fuente en el formulario

Option Explicit 'Constantes de la Rama del registro para los path de _ las aplicaciones que inician con Windows Const RAMA_RUN_WINDOWS As String = "SOFTWARE\Microsoft\" & _ "Windows\CurrentVersion\Run" 'Establece la ruta del programa para que se inicie con windows Private Sub Command1_Click() Dim Path_Programa As String Dim Titulo_Programa As String Dim Ret As Boolean Path_Programa = App.Path & "\" & App.EXEName & ".exe" Titulo_Programa = App.Title Ret = EstablecerValor(HKEY_LOCAL_MACHINE, _ RAMA_RUN_WINDOWS, _ Titulo_Programa, _ Path_Programa, REG_SZ) 'si retorna True es por que creó el dato correctamente If Ret Then MsgBox " Entrada creada correctamente", vbInformation Else MsgBox " Hubo un error, comprobar los valores", vbCritical End If End Sub 'Elimina el valor del registro Private Sub Command2_Click() Dim Titulo_Programa As String Titulo_Programa = App.Title Call EliminarValor(HKEY_LOCAL_MACHINE, _ RAMA_RUN_WINDOWS, _ Titulo_Programa) End Sub Private Sub Form_Load() Command1.Caption = " Grabar en registro " Command2.Caption = " Eliminar la entrada " End Sub

Leer la clave para poder saber si la ruta de la aplicación ya se añadió

Este código complementa el ejemplo anterior, para poder leer del registro si la ruta ya fue agregada o no se agregó, y de esta manera poder mostrar un mensaje, por ejemplo:

vista del cuadro de diálogo para confirmar la entrada

Para consultar el valor se usa principalmete la función RegQueryValueExString.

Colocar el código fuente en un módulo bas

Option Explicit 'Declaración de constantes '**************************** Private Const REG_SZ As Long = 1 Private Const REG_DWORD As Long = 4 Private Const KEY_ALL_ACCESS = &H3F 'Declaración de las funciones api para el registro '************************************************* Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" _ (ByVal hKey As Long, _ ByVal lpValueName As String, _ ByVal lpReserved As Long, _ lpType As Long, _ ByVal lpData As Long, _ lpcbData As Long) As Long 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 RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" _ (ByVal hKey As Long, _ ByVal lpValueName As String, _ ByVal lpReserved As Long, _ lpType As Long, _ ByVal lpData As String, _ lpcbData As Long) As Long ' Función para leer el dato del registro usando QueryValueEx Function Leer_Valor(clave As Long, Nombre_clave As String, Nombre_valor As String) Dim Handle_clave As Long Dim valor As Variant Dim Ret As Long Ret = RegOpenKeyEx(clave, Nombre_clave, 0, KEY_ALL_ACCESS, Handle_clave) Ret = QueryValueEx(Handle_clave, Nombre_valor, valor) ' REtorna el valor del registro a la función Leer_Valor = Replace(valor, Chr(0), vbNullString) 'Cierra la clave abierta del registro RegCloseKey (Handle_clave) End Function ' función que retorna el valor Private Function QueryValueEx(ByVal lhKey As Long, _ ByVal Name_Valor As String, _ el_Valor As Variant) As Long Dim cch As Long Dim lrc As Long Dim Tipo As Long Dim ret_Valor As Long Dim dato As String On Error GoTo errSub lrc = RegQueryValueExNULL(lhKey, Name_Valor, 0&, Tipo, 0&, cch) If lrc <> 0 Then Error 5 Select Case Tipo 'Dato de tipo cadena Case REG_SZ: dato = String(cch, 0) lrc = RegQueryValueExString(lhKey, Name_Valor, 0&, Tipo, dato, cch) If lrc = 0 Then el_Valor = Left$(dato, cch) Else el_Valor = Empty End If Case REG_DWORD: End Select Exit Function 'Error errSub: MsgBox Err.Description, vbCritical End Function

Y en un Formulario colocar un Command1 y el siguiente código

'Constantes de la Rama del registro para los path de _ las aplicaciones que inician con Windows Const RAMA_RUN_WINDOWS As String = "SOFTWARE\Microsoft\" & _ "Windows\CurrentVersion\Run" Const HKEY_LOCAL_MACHINE = &H80000002 'Consultar valor Private Sub Command1_Click() Dim Ret As String Dim Path As String Path = App.Path & " \" & App.EXEName & ".exe" 'Llama a la función que lee del registro Ret = Leer_Valor(HKEY_LOCAL_MACHINE, RAMA_RUN_WINDOWS, App.Title) If Ret <> Path Then If MsgBox(" La aplicación NO se inicia con windows," & _ "¿ Desea que se inicie ? ", vbInformation + vbYesNo) = vbYes Then '--->>... ACÁ Llamar a la rutina que graba la entrada en el registro End If End If End Sub

Recursos vb 6.0

Ejemplo similar a este pero usando Windows Scripting Host

Recursos vb.Net

Ejemplo en visual basic.net usando la clase Registry

Buscar en Recursos vb