Colocar mi aplicación en el Registro de Windows
Publicado por Jorge (13 intervenciones) el 01/09/2015 23:33:06
Un saludo a todos los del Foro.
Encontré este código para: Comprobar si existe, Añadir o Quiitar una aplicación del Registro de Windows, pero algo falla al compilar:
¿Alguien me puede ayudar, por favor? Deseo que mi aplicación se inicie con Windows.
Gracias.
Encontré este código para: Comprobar si existe, Añadir o Quiitar una aplicación del Registro de Windows, pero algo falla al compilar:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private mReg As cQueryReg
Private Const cvRun As String = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
' comprobar si la clave ya existe
Dim s As String
s = mReg.GetRegString(cvRun, txtClave.Text)
If s <> "" Then
LabelInfo.Caption = "SI existe la clave indicada" & vbCrLf & s
Else
LabelInfo.Caption = "NO existe la clave indicada"
End If
' Poner la clave
Dim s As String LabelInfo
s = mReg.GetRegString(cvRun, txtClave.Text)
If s <> "" Then
LabelInfo.Caption = "La clave ya estaba asignada." & vbCrLf & s
Else
If mReg.SetReg(cvRun, txtClave.Text, txtExe.Text) = ERROR_NONE Then
LabelInfo.Caption = "La clave se ha asignado correctamente."
Else
LabelInfo.Caption = "ERROR al crear la clave."
End If
End If
' Quitar la clave
Dim s As String
s = mReg.GetRegString(cvRun, txtClave.Text)
If s <> "" Then
If mReg.DeleteValue(cvRun, txtClave.Text) = ERROR_NONE Then
LabelInfo.Caption = "La clave se ha eliminado del registro."
Else
LabelInfo.Caption = "ERROR al eliminar la clave."
End If
Else
LabelInfo.Caption = "La clave NO estaba creada."
End If
¿Alguien me puede ayudar, por favor? Deseo que mi aplicación se inicie con Windows.
Gracias.
Valora esta pregunta
0
