CONTRÔLER LES INSTANCES DE MS ACCESS

cs_cyrilp Messages postés 140 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 12 août 2009 - 23 avril 2002 à 12:23
 danscot - 8 févr. 2014 à 16:32
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/3093-controler-les-instances-de-ms-access

Il y a une erreur dans le code :
....
Do While i
tProcess = Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))

If CompletePath = False Then
.....
c'est If CompletePath = true Then
Mumuri Messages postés 320 Date d'inscription mercredi 9 octobre 2002 Statut Membre Dernière intervention 6 avril 2008
12 oct. 2002 à 11:10
merci
cs_cyrilp Messages postés 140 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 12 août 2009
23 avril 2002 à 14:02
... J'ai aussi oublié de préciser que ce petit code permet de contrôler.... au dela de MS Access... N'importe quel executable...
Par exemple :

IsProcessRunning("SOL.EXE") => Renvoie Vrai si SOL.EXE est en mémoire
IsProcessRunning("C:WINDOWSPAINT.EXE",True) => Renvoie vrai si PAINT est en mémoire

Etc...

A+
Cyril
cs_cyrilp Messages postés 140 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 12 août 2009
23 avril 2002 à 12:23
Au fait, j'ai oublié de préciser...
Une partie de ce code est extrait de API Guide de KPD Team, je l'ai modifié pour atteindre le but souhaité.

De plus, une petite information :
Le 2nd paramètre de la fonction ProcessCount permet de définir si on passe en paramêtre le nom d'un executable ou son chemin complet.


Concernant KPD Team, j'ai oublié de remettre les copyrights, alors les voici :
KPD-Team 2000
URL: http://www.allapi.net/
E-Mail: KPDTeam@Allapi.net
Rejoignez-nous