Cette Q&R a été trouvée sur WDForge.org

Copier Windows / Coller Windev (Fichiers uniquement)

Demandé et répondu par KPiTN le 27-Sep-2004 12:14

Copier Windows / Coller Windev (Fichiers uniquement)

Copier des Fichiers sous windows, pour les coller sous windev. (Récupération du chemin des fichiers contenus dans le presse papier)

NbFIchierARecup est un entier
FileName est une chaîne
CFDrop est un entier
i est un entier
//acces au Press Papier
AppelDLL32("user32", "OpenClipboard",0)
//chercher si le press papier contient des fichiers
CFDrop=AppelDLL32("user32", "GetClipboardData",CF_HDROP)
//recuperer le nombre de fichier dans le press papier
NbFIchierARecup=AppelDLL32("SHELL32","DragQueryFile",CFDrop,-1,"",0)
POUR i=0 A NbFIchierARecup-1
	FileName=Complète(FileName,350)
	//récuperation du fichier
	AppelDLL32("SHELL32","DragQueryFile",CFDrop,i,FileName,Taille(FileName))
	Trace(FileName)
	FileName=SansEspace(FileName)	Trace(FileName)
FIN
//Fermeture du press papier
AppelDLL32("user32", "CloseClipboard")

Auteur : KPiTN

Cette Q&R a été trouvée sur WDForge.org : http://old.wdforge.org/modules/smartfaq/faq.php?faqid=22