Autor Tema: Agregar Aplicacion Al Inicio (msconfig) (Leído 1513 veces)

Nogard · « **en:** Martes 18 de Enero de 2005, 23:09 »

Hola a todos.
Me gustaria saber si alguien puede darme alguna idea de como hacer que mi aplicacion se agregue automaticamente al inicio de windows por medio de MSCONFIG.

He hecho algunas pruebas con la manipulacion de APIS pero no he tenido exito, de verdad agradeceria cualquier idea o sugerencia que me pueda ayudar.

Gracias de antemano.

Brroz

Hola Nogard.

Con w9x (y supongo que con nt y xp lo mismo, pero no lo he probado) puedes agregar el correspondiente valor en una de estas claves del registro:

Para ejecutar siempre al inicio:
- HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

Para ejecutar una sola vez en el siguiente inicio:
- HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce

Para ejecutar como un servicio:
- HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices

Para ejecutar como servicio una sola vez:
- HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce

Para agregar el correspondiente valor puedes usar algo así:

Código: Text

 
Option Explicit
 
Private Const HKEY_LOCAL_MACHINE = &H80000002
 
Private Const ERROR_SUCCESS = 0&
 
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
 
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
 
Private Declare Function RegOpenKeyEx Lib &#34;advapi32.dll&#34; Alias &#34;RegOpenKeyExA&#34; (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
 
Private Declare Function RegCloseKey Lib &#34;advapi32.dll&#34; (ByVal hKey As Long) As Long
 
Private Declare Function RegSetValueEx Lib &#34;advapi32.dll&#34; Alias &#34;RegSetValueExA&#34; (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
 
Public Function EjecutarAlInicio(Byval Descripcion as string, Byval CmdLine As string) As Boolean
 
    Dim lhKey1 As Long, lhKey2 As Long, lRc As Long
 
    lRc = RegOpenKeyEx(HKEY_LOCAL_MACHINE, &#34;Software&#34;, 0&, KEY_QUERY_VALUE, lhKey1)
    If lRc &#60;&#62; ERROR_SUCCESS Then Exit Function
    
    lRc = RegOpenKeyEx(lhKey1, &#34;Microsoft&#34;, 0&, KEY_QUERY_VALUE, lhKey2)
    RegCloseKey lhKey1
    If lRc &#60;&#62; ERROR_SUCCESS Then Exit function
    
    lRc = RegOpenKeyEx(lhKey2, &#34;Windows&#34;, 0&, KEY_QUERY_VALUE, lhKey1)
    RegCloseKey lhKey2
    If lRc &#60;&#62; ERROR_SUCCESS Then Exit function
    
    lRc = RegOpenKeyEx(lhKey1, &#34;CurrentVersion&#34;, 0&, KEY_QUERY_VALUE, lhKey2)
    RegCloseKey lhKey1
    If lRc &#60;&#62; ERROR_SUCCESS Then Exit Function
    
    lRc = RegOpenKeyEx(lhKey2, &#34;Run&#34;, 0&, KEY_ALL_ACCESS, lhKey1)
    RegCloseKey lhKey2
    If lRc &#60;&#62; ERROR_SUCCESS Then Exit Function
 
    CmdLine = CmdLine & Chr(0)
    lRc = RegSetValueEx(lhKey1, Descripcion, 0&, 1&, ByVal CmdLine, Len(CmdLine))
    EjecutarAlInicio = (lRc = ERROR_SUCCESS)
    
End Sub
 
 

Espero que sirva.

Abur.

SoloCodigo

Autor Tema: Agregar Aplicacion Al Inicio (msconfig) (Leído 1513 veces)

Nogard

Agregar Aplicacion Al Inicio (msconfig)

Brroz

Re: Agregar Aplicacion Al Inicio (msconfig)