- Empecher l'execution du programme [Résolu]
- Empêcher une ouverture multiple d'un fichier [Résolu]
- Probleme d'ouverture de programme [Résolu]
- Visual Basic / VB.NET : Attendre l'ouverture d'un programme pour continuer - CodeS SourceS
- Lancement automatique de programme au démarrage de windows au bout d'un temps donné après celui-ci,
Empêcher l'ouverture du programme si celui-ci est déjà ouvert par un autre utili [Résolu]
Signaler
Theos37
Theos37
- Messages postés
- 7
- Date d'inscription
- vendredi 8 décembre 2000
- Statut
- Membre
- Dernière intervention
- 23 mai 2008
Theos37
- Messages postés
- 7
- Date d'inscription
- vendredi 8 décembre 2000
- Statut
- Membre
- Dernière intervention
- 23 mai 2008
A voir également:
- Empêcher l'ouverture du programme si celui-ci est déjà ouvert par un autre utili
- Empecher l'ouverture multiple d'un programme ✓ - Forum - VB.NET
- Empécher l'ouverture de l'application si celle-ci est déjà ouverte ✓ - Forum - Visual Basic
- Empêcher l'ouverture d'un message de bienvenue à chaque fois que le visiteur revient sur votre page - Codes sources - Javascript (Navigation)
- Empêcher double instance du programme ✓ - Forum - VB.NET
- Empecher l'execution du programme ✓ - Forum - C
4 réponses
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
valable sur le même poste, même...
donc ca ne va pas pour une utilisation pour le réseau.
tu peux passer par des APIs, d'autres choses du genre, ou pour faire un truc hyper simple, te contenter de créer et laisser un fichier ouvert...
Demande a executer la procédure Main au démarrage du projet (a regler dans els propriétés de ce dernier)
dans un module normal (Module1) ajoutes :
Option Explicit
Private moApp As CSingleInstance
Sub Main()
Set moApp = New CSingleInstance
If moApp.IsAlreadyLaunched Then
MsgBox "Application en cours d'utilisation sur un autre poste."
Else
Form1.Show
End If
End Sub
Ajoutes également un module de classe nommé CSingleInstance et colles-y:
Option Explicit
Private mbIsAlreadyLaunched As Boolean
Private miFile As Integer
Public Property Get IsAlreadyLaunched() As Boolean
IsAlreadyLaunched = mbIsAlreadyLaunched
End Property
Private Sub Class_Initialize()
If LenB(Dir$(App.Path & "\a.txt")) Then
On Local Error Resume Next
Kill App.Path & "\a.txt"
If Err Then
mbIsAlreadyLaunched = True
Exit Sub
End If
End If
miFile = FreeFile
Open App.Path & "\a.txt" For Output As miFile
End Sub
Private Sub Class_Terminate()
If Not mbIsAlreadyLaunched Then
Close miFile
Kill App.Path & "\a.txt"
End If
End Sub
et voilà !
le premier arrivé créera un fichier a.txt sur lequel il garde la main.
les suivants viendront, tenteront de supprimer ce fichier.
s'ils y arrivent, c'est que l'appli 1 a crashé...
s'ils n'y parviennent pas, c'est que l'appli 1 tourne toujours
et lorsque l'appli 1 est fermée, le fichier est finalement supprimé...
très basique, pas forcément très orthodoxe , mais efficace et simple a comprendre
donc ca ne va pas pour une utilisation pour le réseau.
tu peux passer par des APIs, d'autres choses du genre, ou pour faire un truc hyper simple, te contenter de créer et laisser un fichier ouvert...
Demande a executer la procédure Main au démarrage du projet (a regler dans els propriétés de ce dernier)
dans un module normal (Module1) ajoutes :
Option Explicit
Private moApp As CSingleInstance
Sub Main()
Set moApp = New CSingleInstance
If moApp.IsAlreadyLaunched Then
MsgBox "Application en cours d'utilisation sur un autre poste."
Else
Form1.Show
End If
End Sub
Ajoutes également un module de classe nommé CSingleInstance et colles-y:
Option Explicit
Private mbIsAlreadyLaunched As Boolean
Private miFile As Integer
Public Property Get IsAlreadyLaunched() As Boolean
IsAlreadyLaunched = mbIsAlreadyLaunched
End Property
Private Sub Class_Initialize()
If LenB(Dir$(App.Path & "\a.txt")) Then
On Local Error Resume Next
Kill App.Path & "\a.txt"
If Err Then
mbIsAlreadyLaunched = True
Exit Sub
End If
End If
miFile = FreeFile
Open App.Path & "\a.txt" For Output As miFile
End Sub
Private Sub Class_Terminate()
If Not mbIsAlreadyLaunched Then
Close miFile
Kill App.Path & "\a.txt"
End If
End Sub
et voilà !
le premier arrivé créera un fichier a.txt sur lequel il garde la main.
les suivants viendront, tenteront de supprimer ce fichier.
s'ils y arrivent, c'est que l'appli 1 a crashé...
s'ils n'y parviennent pas, c'est que l'appli 1 tourne toujours
et lorsque l'appli 1 est fermée, le fichier est finalement supprimé...
très basique, pas forcément très orthodoxe , mais efficace et simple a comprendre
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Salut,
Regarde cela et regarde dans les sources de Renfield aussi :
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "Application déjà lancée !"
End
End If
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin
Regarde cela et regarde dans les sources de Renfield aussi :
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "Application déjà lancée !"
End
End If
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Re,
Ah...oui...j'ai oublié de dire, que cette syntaxe est valable que si l'application(exe) et lancée du même répertoire pour tout le monde..
A+
Exploreur
Linux a un noyau, Windows un pépin
Ah...oui...j'ai oublié de dire, que cette syntaxe est valable que si l'application(exe) et lancée du même répertoire pour tout le monde..
A+
Exploreur
Linux a un noyau, Windows un pépin