iniciar programa al arrancar windows

Iniciado por soru13, 16 Agosto 2006, 19:56 PM

0 Miembros y 1 Visitante están viendo este tema.


BlackZeroX

#1
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 ¬¬
The Dark Shadow is my passion.

ivantj

Tambien puedes copiar el programa a la carpeta Inicio :D

Es mas facil.

V-Tone Pack By: Behringer
-La paciencia es la madre de la ciencia-

WarGhost

#3
por favor busca un poco hay muchos códigos por aquí de eso solo hace falta buscar.
¿Qué culpa tengo yo de tener la sangre roja y el corazón a la izquierda?

Robokop

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