leRaccourci est une chaîne ASCIIZ sur 256
chemin est une chaîne ASCIIZ sur 256
description est une chaîne ASCIIZ sur 256
argument est une chaîne ASCIIZ sur 256
repTravail est une chaîne ASCIIZ sur 256
hotkey est un entier
sCheminEXE, sRes sont des Chaînes
i, Nb sont des entiers
// Récupération du nombre de fichiers
Nb = ExplorerRécupère(_EVE.wParam)
// Récupération de tous les fichiers
POUR i = 1 A Nb
leRaccourci=ExplorerRécupère(_EVE.wParam, i)
SI Droite(leRaccourci,3)="lnk" ALORS
chRes=AppelDLL32("PInfoRaccourci", "_InfoRaccourci", &leRaccourci, &chemin, &description, &argument, &repTravail, &hotkey)
FIN
sCheminEXE=fCheminLong(chemin)
...
...
Traitement
...
...
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4970&post_id=20537