11/05/2008, 03:15
|
| | | Fecha de Ingreso: febrero-2008
Mensajes: 88
Antigüedad: 17 años, 2 meses Puntos: 1 | |
 Re: Ejecutar programa al inicio windows
Gracias compañeros.
ya he podido crear el registro y eliminarlo cuando deseo
aqui dejo un pequeño ejemplo de codigo
Private Sub Command1_Click() 'eliminar del registro
Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")
El_Objeto.RegDelete ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cu rrentVersion\Run\" & App.EXEName)
Set El_Objeto = Nothing
End Sub
Private Sub Form_Load()
'crea el registro
Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")
El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Set El_Objeto = Nothing
End Sub
|