Applicatons ouvertes

cs_adesurmont Messages postés 13 Date d'inscription mardi 14 janvier 2003 Statut Membre Dernière intervention 1 février 2011 - 18 août 2006 à 22:36
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 18 août 2006 à 22:50
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

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
18 août 2006 à 22:50
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"
<!--
0