como podria hacer que cuando arranque windows se inicie mi programa?
Cita de: soru13 en 16 Agosto 2006, 19:56 PM
como podria hacer que cuando arranque windows se inicie mi programa?
mammm
puedes agarrar y hacer un registro en windows en donde en la siguiente dirreción
el siguiente codigo representa a un checkbox cuando se activa hace un registro para que tal programa se ejecute al principio y viseversa ok suerte
Private Sub Check2_Click()
Select Case Check2.Value
Dim texto$
Case 1
resultado = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, hKey)
If resultado = ERROR_SUCCESS Then
Dim cadena As String
Dim cadena2 As String
cadena = App.Path + "\" + App.EXEName + ".EXE"
RegSetValueEx hKey, "PowerManager", 0, REG_SZ, ByVal cadena, Len(cadena)
Else
texto$ = "Ha ocurrido un error al escribir en el registro" + Chr$(13) + "La función Ejecutar al Iniciar sesión será desabilitada teporalmente"
MsgBox texto$, vbCritical, "PowerManager"
Check2.Value = 2
End If
RegCloseKey hKey
Case 0
resultado = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, hKey)
If resultado = ERROR_SUCCESS Then
Dim caden As String
Dim caden2 As String
caden = ""
RegSetValueEx hKey, "PowerManager", 0, REG_SZ, ByVal caden, Len(caden)
Else
texto$ = "Ha ocurrido un error al escribir en el registro" + Chr$(13) + "La función Ejecutar al Iniciar sesión será desabilitada teporalmente"
MsgBox texto$, vbCritical, "PowerManager"
Check2.Value = 2
End If
End Select
RegCloseKey hKey
End Sub
P.D.:::> El codigo es de PowerManager por si acaso ¬¬
Tambien puedes copiar el programa a la carpeta Inicio :D
Es mas facil.
por favor busca un poco hay muchos códigos por aquí de eso solo hace falta buscar.
blackzerox falta las declaraciones de regopenkeyex lo vi a pura vista de pajaro y me parecio que no estaban.
lo puedes hacer con script un ejemplo
'Esto en algun evento.
regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\testing", "C:\direccionPrograma.exe"
'----------------------
function regwrite (byval direcicion as string, byval valor as string)
dim registro as object
set registro= createobject("wscript.shell")
registro.regwrite direccion, valor, "reg_sz"
end function
no lo cheque bien espero que sirva si no busca ejemplos en el foro.
Hola:
A mi gusto mucho mas facil y corto:
Shell Reg.Text, vbHide
Reg.txt es un TextBox que tiene q contener esto:
REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v NombreClave /t REG_SZ /d "C:\windows\programa.exe "
1S4ludo