// Procédure appelée dans le code de Début de Glisser/Déplacer
// pour effectuer du Drag and Drop 
// vers l'explorateur de fichiers ou une autre application
PROCEDURE DNDVersExplorateur(sListeCheminFichier)

// Structure Windows permettant de gérer 
// le Glisser/Déplacer avec l'explorateur
POINT is Structure
	x, y are int
END

DROPFILES is Structure
	// Pointeur vers la liste des fichiers
	pFiles is int
	// Position d'origine de la souris
	PT is POINT
	// Réservé
	fNC is boolean 
	// Vrai si la liste des fichiers est en Unicode, Faux sinon
	fWide is boolean 
END

// Remplit une structure HDROP
stDROPFILES is DROPFILES
stDROPFILES:fWide = True // Faux pour Ansi, sinon Unicode, 
stDROPFILES:fNC = True // Coordonnées de PT dans zone cliente
stDROPFILES:PT:x = 0
stDROPFILES:PT:y = 0
stDROPFILES:pFiles = Dimension(stDROPFILES) // Taille de la structure

// sListeCheminFichier contient la liste des fichiers séparés par RC
// pour les Dnd multifichiers, le RC est remplacé par un zéro binaire, 
// et les 2 zéro binaires de terminaison sont ajoutés
bufListeDeFichiers is Buffer
IF TypeVar(sListeCheminFichier) = wlUnicodeString THEN
	bufListeDeFichiers = Replace(sListeCheminFichier, CR, ...
		CharactUnicode(0)) + CharactUnicode(0) + CharactUnicode(0)
	stDROPFILES:fWide = True // Vrai pour Unicode
ELSE
	bufListeDeFichiers = Replace(sListeCheminFichier, CR, ...
		Charact(0)) + Charact(0) + Charact(0)
	stDROPFILES:fWide = False // Faux pour Ansi, sinon Unicode, 
END

// Transfert du contenu de la structure dans le buffer
// Calcul de la taille totale nécessaire : 
// taille de la structure et de la taille des noms de fichiers 
// avec les 2 zéros binaires unicode de terminaison
nTaille is int
nTaille = Dimension(stDROPFILES) + Length(bufListeDeFichiers)

// Alloue un buffer pour toutes les informations du DROP
// à la taille souhaitée avec des 0 binaire dedans
bufDonneesDrop is Buffer
bufDonneesDrop = RepeatString(Charact(0), nTaille)
// Met les informations de la structure stDROPFILES dans le buffer
Transfer(&bufDonneesDrop, &stDROPFILES, Dimension(stDROPFILES))
// A la suite du buffer, met les noms des fichiers
Transfer(&bufDonneesDrop + Dimension(stDROPFILES), ...
	&bufListeDeFichiers, Length(bufListeDeFichiers))

// Indique que c'est un DROP de fichier
DnDCacheData(CF_HDROP, &bufDonneesDrop, nTaille)