Crear un nuevo proyecto e insertar el siguiente código:

Private Sub Form_Load()
If App.PrevInstance Then
Msg = App.EXEName & ".EXE" & " ya está en ejecución"
MsgBox Msg, 16, "Aplicación."
End
End If
End Sub

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 4 votaciones| Nota media: 8Selecciona tu Puntuación: