Trouver le programme associé à un fichier

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

PROCEDURE Get_Exe(Par_NomFichier est une chaîne)

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