• Domingo 22 de Diciembre de 2024, 16:34

Autor Tema:  Re: Iniciar una aplicacion por unica vez  (Leído 915 veces)

_EL_DJ_LU

  • Miembro activo
  • **
  • Mensajes: 78
    • Ver Perfil
Re: Iniciar una aplicacion por unica vez
« en: Lunes 12 de Mayo de 2003, 23:56 »
0
Hola
Como puedo hacer a que mi programa se inicie por una sola vez.
es decir si ya esta ejecutado, que no se pueda ejecutar nuevamente al hacerle doble click .
espero que me entiendan.
gracias

observador

  • Miembro activo
  • **
  • Mensajes: 65
    • Ver Perfil
    • http://www.soloprogramacion.net/
Iniciar una aplicacion por unica vez
« Respuesta #1 en: Martes 13 de Mayo de 2003, 05:04 »
0
Bien... aqui esta el codigo que te permite tverificar si el mismo programa ya esta ejecutandose... y si es asi, ya no permitir ejecutar otra instancia...

Copealo y pegalo en la seccion (General) (Declaraciones) de un formulario...

Private Sub Form_Load()
    If App.PrevInstance Then
        MsgBox "Este programa [" & App.EXEName & ".exe]" & " ya está en ejecución", vbInformation, "Aplicación."
        End 'Terminar esta instancia
    End If
End Sub

Para probarlo, crea el ejecutable y luego desde el explorador dale doble clik, cuando ya este en ejecucion vuelve a darle doble click al archivo y observa lo que pasa...

Bueno... espero te sea util... (Probado en VB5) :comp:
Solo Programacion Net

Hasta pronto...