Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Visual Basic6 + win.ini...

Estas en el tema de Visual Basic6 + win.ini... en el foro de Visual Basic clásico en Foros del Web. Hola gente como estan ?, espero que bien. Tengo una consulta, que quizas resulte muy interesante pero sencilla, y es esta: Como puedo hacer, para ...
  #1 (permalink)  
Antiguo 27/03/2007, 18:10
 
Fecha de Ingreso: marzo-2007
Mensajes: 5
Antigüedad: 17 años, 1 mes
Puntos: 0
Pregunta Visual Basic6 + win.ini...

Hola gente como estan ?, espero que bien.
Tengo una consulta, que quizas resulte muy interesante pero sencilla, y es esta:
Como puedo hacer, para que un programa hecho en Visual Basic6, pueda ejecutarse automaticamente con el inicio de Windows, utilizando el archivo Win.ini o creando una entrada en el regedit.
Espero puedan ayudarme con este asunto.
Desde ya muchas gracias.

Jhonys:
End If.
  #2 (permalink)  
Antiguo 27/03/2007, 18:50
 
Fecha de Ingreso: enero-2007
Ubicación: Tingo María - Perú
Mensajes: 399
Antigüedad: 17 años, 3 meses
Puntos: 13
Re: Visual Basic6 + win.ini...

Haber si esto te sirve:
Código:
 
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Const REG_SZ = 1
Private Const LOCALMACHINE = &H80000002
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Public Sub ColocarEnInicio()
Dim nKey As Long
RegCreateKey LOCALMACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", nKey
If Len(App.Path) <= 3 Then
RegSetValueEx nKey, App.EXEName, 0, REG_SZ, App.Path & App.EXEName & ".exe", Len(App.Path & App.EXEName & ".exe")
Else
RegSetValueEx nKey, App.EXEName, 0, REG_SZ, App.Path & "\" & App.EXEName & ".exe", Len(App.Path & "\" & App.EXEName & ".exe")
End If
End Sub
__________________
Vivir para ser buenos y ser buenos para servir mejor.
  #3 (permalink)  
Antiguo 28/03/2007, 02:47
 
Fecha de Ingreso: marzo-2007
Mensajes: 5
Antigüedad: 17 años, 1 mes
Puntos: 0
Exclamación Re: Visual Basic6 + win.ini...

Hola boluart como te va? Gracias por tu gentileza me parese que con el codigo que me diste, soluciono mi problema, ahora te hago otra pregunta, esas declaraciones en codigo las escribo en un modulo aparte o en el mismo Form de mi programa principal?
Gracias muchas gracias
Jhony
End If
  #4 (permalink)  
Antiguo 28/03/2007, 08:24
 
Fecha de Ingreso: enero-2007
Ubicación: Tingo María - Perú
Mensajes: 399
Antigüedad: 17 años, 3 meses
Puntos: 13
Re: Visual Basic6 + win.ini...

Claro que el codigo que te puse gran parte fue extraido de un proyecto que tengo y que fue modificado para la ocacion para ahcerlo lo mas sencillo posible.
Seria bueno que lo pongas en un modulo asi no tendrias tanto codigo en el formulario de este modo tener mas organizado tu codigo.
__________________
Vivir para ser buenos y ser buenos para servir mejor.
  #5 (permalink)  
Antiguo 30/03/2007, 03:01
 
Fecha de Ingreso: marzo-2007
Mensajes: 5
Antigüedad: 17 años, 1 mes
Puntos: 0
Pregunta Re: Visual Basic6 + win.ini...

Hola boluart, tengo una duda mas, a cerca de el codigo fuente que me diste.
En donde dice, App.EXEName, EXENAme, va el nombre de mi programa verdad ? entonses en donde dice solo ".exe") tambien debo anteponer el nombre de mi programa ?
Desde ya mchas gracias.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:11.