Applicatons ouvertes

Messages postés
13
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
1 février 2011
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour,

Comment peut on détecter les applications ouvertes non pas par le nom inscrit en haut de la Form mais par le nom réel d fichier et chemin :

Exemple :

Détecter excel.exe dans c:\programfiles... et non "Microsoft Excel - Classeur1"

merci

1 réponse

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

il faut voir du côté de l'API FindExecutable :

Dans les déclarations :

Private Declare Function FindExecutableA Lib "shell32.dll" _
    (ByVal lpFile As String, ByVal lpDirectory As String, _
    ByVal lpResult As String) As Long

Puis, voici une fonction :

Function TrouverExecutable(NomFichier As String) As String
    Dim CheminAs String
    Dim Rep As Long
Chemin = Space(255)
Rep = FindExecutable(NomFichier, "", Chemin)

TrouverExecutable = Trim(Chemin)
End Function

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--