BLOQUEUR MULTI LANCEMENT D'UN PROGRAMME
cs_vanhalen
Messages postés
2
Date d'inscription
vendredi 6 janvier 2006
Statut
Membre
Dernière intervention
16 mars 2007
-
16 mars 2007 à 17:29
cs_kalif Messages postés 362 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 24 août 2012 - 17 mars 2007 à 15:07
cs_kalif Messages postés 362 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 24 août 2012 - 17 mars 2007 à 15:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/41867-bloqueur-multi-lancement-d-un-programme
https://codes-sources.commentcamarche.net/source/41867-bloqueur-multi-lancement-d-un-programme
17 mars 2007 à 15:07
'Code by Adam Verwijs
Const ERROR_ALREADY_EXISTS = 183&
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim hMutex As Long
'Try to create a new Mutex
hMutex = CreateMutex(ByVal 0&, 1, App.Title)
'Did the mutex already exist?
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
'Clean up
ReleaseMutex hMutex
CloseHandle hMutex
'More than one instance detected
MsgBox "More than one instance"
End
Else
'form load code
End If
End Sub
16 mars 2007 à 20:53
16 mars 2007 à 20:52
vanhalen -> j'attends la maj au plus vite, ton code risque de ne pas passer la nuit :$
16 mars 2007 à 20:36
(et content que mon code ait pu servir)
16 mars 2007 à 19:41
seul "modDeclarProcess.bas" et "modProcess.bas" sont utile
alors elimine les autre du zip
a+
bonne prog...
16 mars 2007 à 19:21
- si je lance une autre application "calc.exe" qui n'a rien à voir avec la calculatrice, elle ne se lancera pas (pas de test sur le fichier *.exe cible du processus)
- quel intérêt de tuer plusieurs instances d'un même programme ??
- programmaticalement parlant, il n'y a que deux For..Next et un If... Then..., des modules complètement inutiles ici (et de Madm@tt en plus), et même le peu de code de la form est incohérent (constante, API, variables, et instructions inutiles)
Enfin bon, je suis pas admin...
@+
16 mars 2007 à 18:25
en remplaçant le 2e par calc.exe (je suppose que c'est un oubli), et en ajoutant doevents (plus pratique ...), ton appli plante lors de la destruction de la première instance de calc.exe
ps : fait le tri dans les modules, pas la peine de bourrer un zip pour le plaisir alors que seules 3 procedures sont vraiment utiles
++
16 mars 2007 à 17:29