Autor |
Mensaje (Ver Versión para Imprimir)
|
Mensajes: 4
Registrad@: 24/07/2006
Estado: Desconectad@ |
Me falta dar privilejios al programa
Hola! soy yo otra vez...
Tengo el siguiente codigo para que se inicie el programa con windows:
CÓDIGO | Private Sub Form_Load()
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Ejemplo.exe"
Dim RegistroCochino As Object
Dim RutaCochina As String
Dim CadenaNueva As String
Dim ContenidoCadena As String
ContenidoCadena = "c:\Ejemplo.exe"
CadenaNueva = "\Ejemplo"
RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
"\CurrentVersion\Run" & CadenaNueva
Set RegistroCochino = CreateObject("WScript.Shell")
RegistroCochino.RegWrite RutaCochina, ContenidoCadena
End Sub |
El problema es que al arrancar windows me sale un aviso [Runtime error 70> [Permission Denied> Que sera por que no tengo privilejios, mi pregunta es:
¿Que le falta alcodigo para dar privilegios? |
21/06/2009 21:31:17 | |
Mensajes: 81
Registrad@: 19/08/2005
Estado: Desconectad@ |
RE: Me falta dar privilejios al programa
Supongo ke tendras ke hacerlo desde la carpeta. Boton derecho >> propiedades >> seguridad
Salu2.
Colabora en mi web de musica Roseinheaven |
22/06/2009 09:53:27 | |
Mensajes: 11
Registrad@: 03/05/2009
Estado: Desconectad@ |
RE: Me falta dar privilejios al programa
Al iniciar de nuevo ese archivo estás copiando de nuevo el archivo en un sitio donde ya está copiado.
solucionalo así:
Private Sub Form_Load()
On error goto yasecopio
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Ejemplo.exe"
Dim RegistroCochino As Object
Dim RutaCochina As String
Dim CadenaNueva As String
Dim ContenidoCadena As String
ContenidoCadena = "c:\Ejemplo.exe"
CadenaNueva = "\Ejemplo"
RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
"\CurrentVersion\Run" & CadenaNueva
Set RegistroCochino = CreateObject("WScript.Shell")
RegistroCochino.RegWrite RutaCochina, ContenidoCadena
yasecopio:
End Sub |
22/06/2009 16:06:12 | |
Mensajes: 4
Registrad@: 24/07/2006
Estado: Desconectad@ |
RE: Me falta dar privilejios al programa
Gracias!!
[Solucionado> |
25/06/2009 16:40:15 | |