SAVOIR SI UN PROGRAMME EST LANCÉ
cs_wbr
Messages postés
110
Date d'inscription
dimanche 11 août 2002
Statut
Membre
Dernière intervention
21 juillet 2006
-
18 nov. 2002 à 15:23
PsyCaDi Messages postés 123 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 30 mars 2009 - 10 févr. 2005 à 11:45
PsyCaDi Messages postés 123 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 30 mars 2009 - 10 févr. 2005 à 11:45
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/5106-savoir-si-un-programme-est-lance
https://codes-sources.commentcamarche.net/source/5106-savoir-si-un-programme-est-lance
Discussions similaires
- Applications et programme d'interface
- 'Mvn' n’est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.
- Outrepasser le message d'outlook quand j'envoi un fichier excel par email
- Écrire un programme qui calcule la moyenne des notes
- Ecrire un programme qui calcul la moyenne
10 févr. 2005 à 11:45
et dans CheckEXE, j'ai modifié
If FileName UCase(EXE) Then CheckEXE True: Exit Function
par
If UCase(FileName) UCase(EXE) Then CheckEXE True: Exit Function
tourne sous XP Pro SP1
Merci pour ta source
17 nov. 2004 à 18:45
15 oct. 2003 à 17:34
otepad.exe) et des fois juste notepad.exe fais un msgbox de ce qu'il tourne et vérife. possible que ca soit autre chose. mais cherche je me rapelle que c'étais une petite connerie en fait
15 oct. 2003 à 15:28
Ne marche pas bien sous XP
=> test avec "SOUNDMAN.EXE" (manager de la carte son)
=> ok marche
=> test avec "notepad.exe" ou autre
=> marche pas :(
Bizarre...
30 juin 2003 à 13:53
génére une erreur
30 juin 2003 à 13:52
19 avril 2003 à 05:10
Merci
Olivier
20 nov. 2002 à 13:16
19 nov. 2002 à 21:22
Private Sub Command1_Click()
If lance(Text1.Text) Then MsgBox "LANCE !" Else MsgBox "PAS LANCE !"
End Sub
Public Function lance(cheEXE As String) As Boolean
On Error GoTo errr
If Dir(cheEXE) = "" Then Exit Function
Open cheEXE For Append As #1
Close #1
lance = False
Exit Function
errr:
lance = True
End Function
18 nov. 2002 à 20:29
N'est pas forcément comprehensible pour les débutants
Je trouve dommage le manque de commentaires dans bon nombre de sources sur ce site.
18 nov. 2002 à 15:23
pour vérfifier:
If CheckEXE("c:windows
otepad.exe") = True Then
Msgbox "Ouvert"
Else
Msgbox "Fermé"
End if
A+