Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction FindExecutable

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" ( _
                 
ByVal lpFile As String, _
                 ByVal lpDirectory As String, _
                 ByVal lpResult As String) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui

Description :
Cette Fonction permet de connaître l'application associé à un fichier donné, c'est-à-dire celle qui se lance lorsqu'on double clique sur le fichier depuis l'explorateur.
lpFile est le nom du fichier dont on cherche l'application associée.
lpDirectory est le répertoire ou se trouve le fichier précédent.
lpResult est un buffer dans lequel sera placé le résultat de la fonction.
Si la fonction échoue la chaîne lpResult est vide et le chiffre correspond à l'erreur.

Exemple d'utilisation :

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

Private Function
FichierAssocie(stFichier As String, stChemin As String) As String
' Retour l'application associé au fichier passé en argument.
Dim stRep As String
Dim
lgRep As Long
' Initialisation du buffer de retour
stRep = Space$(250)
' Appel à la fonction
lgRep = FindExecutable(stFichier, stChemin, stRep)
' Traitement de la valeur de retour
stRep = Left$(stRep, InStr(1, stRep, vbNullChar) - 1)
' Retourne le résultat
FichierAssocie = stRep
End Function

Retour à la liste des API

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr