"Drag and Drop" depuis l'explorateur
L'exemple suivant permet de récupérer des fichiers par "Drag and Drop" depuis l'explorateur Windows. Les noms des fichiers sont affichés dans une fenêtre de Trace.
// Initialisation du dialogue
ExplorerAccepte(Vrai, FEN_Fen1)
// Branchement de l'événement WM_DROPFILES
Evénement("Explorer", "*.", 563)
PROCÉDURE Explorer()
Nb est un entier
i est un entier
// Récupération du nombre de fichiers
Nb = ExplorerRécupère(_EVE.wParam)
// Récupération de tous les fichiers
POUR i = 1 À Nb
Trace(ExplorerRécupère(_EVE.wParam, i))
FIN
// Fin du dialogue
ExplorerAccepte(Faux, FEN_Fen1)