Foro de elhacker.net

tengo la siguiente situacion:

en el LOAD de un form cualquiera tengo ete codigo para evitar que se ejecute 2 veces el programa:

ahora bien, el form tiene un boton para reiniciar la aplicacion es un simple boton "CMDREINICIAR" cuyo codigo es:


y como se daran cuenta el programa se cierra pero ya no reinicia pues en el load se esta condicionando.

¿Cual sera la forma de reiniciar un EXE pero a la vez cuidar de que este no se ejecute 2 veces?

Podrias hacer algo asi

Option Explicit
 
Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
 
Private Sub Command1_Click()
    Call SetEnvironmentVariable("RESTARTED", "1")
    Call Shell(App.Path & "\" & App.EXEName & ".exe", vbNormalFocus)
    Call Unload(Me)
End Sub
 
Private Sub Form_Load()
    If App.PrevInstance Then
        If Not Environ$("RESTARTED") = "1" Then
            Gosub Quit:
        End If
    End If
 
    '// Your Code Here
 
    Exit Sub 
 
Quit:
    Call Unload(Me)
End Sub
 
 

Excelente COBEIN, entiendo lo de las variables de entorno, habia tenido la misma idea pero con un interruptor( tu lo llamaste "RESTARTED" ) guardado en un archivo y preguntar desde ahi pero veo que es mucho mas elegante tu solucion y mas rapida claro, hace tiempo vi que las instrucciones GOTO y GOSUB no eran recomendadas (asi como el abrupto END) asi que lo cambie por esto, y funciona:
¿por que END en vez de Unload? pues quiza se quede algun form abierto por ahi, en fin... gracias por tu ayuda

Option Explicit
Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
 
Private Sub Command1_Click()
    Call SetEnvironmentVariable("FLAG", "1")
    Call Shell(App.Path & "\" & App.EXEName & ".exe", vbNormalFocus)
    End
End Sub
 
Private Sub Form_Load()
    If App.PrevInstance = True Then
        If Not Environ$("FLAG") = "1" Then
          End
        End If
    End If
 
End Sub
 
 

PD.- que pasa con la variable creada? se borra? parece que si pues voy a la consola escribo SET y no existe tales variables. ¿o donde estan?

Se puede hacer asi sin necesidad de usar gosub, con respecto al end no es recomendado para nada, aparte se supone que esta es la primer funcion asi que no tendria que haber nada cargado exepto el form de inicio.

Con respecto a las variables de entorno, son locales no globales

Private Sub Form_Load()
    If App.PrevInstance and _
         Not Environ$("RESTARTED") = "1" Then
            Call Unload(Me)
    Else
        '// Your Code Here
    End If
 
End Sub

Con mutex tambien se podria hacer.

Si, se puede hacer con mutex, archivo, memoria, registro, dde, linea de comandos o cualquier cosa que te permita crear un flag, tambien podrias ver que proceso lo ejecuto o usar CreateProcess y pasarle los flags o mil cosas mas,  gracias por el dato.