FORMATION Trouver l'exe associé à un fichier

Bonjour
Voilà Une simple procédure pour récupérer le programme associé à un fichier donné.

Code (Text):

PROCEDURE Get_Exe(Par_NomFichier est une chaîne)  //Par_NomFichier Le chemin complet du Par_NomFichier

LOC_Res est une chaîne
LOC_NomFichier est une chaîne ASCIIZ sur 255 = Par_NomFichier
LOC_Prog est une chaîne ASCIIZ sur 255

SI API("SHELL32","FindExecutableA",&LOC_NomFichier,Null,&LOC_Prog)>32
    LOC_Res=LOC_Prog
FIN

RENVOYER LOC_Res
 

Bon Dev