WDForge.org - FAQ - WinDev Codes - Copier Windows / Coller Windev (Fichiers uniquement)

FAQ

Copier Windows / Coller Windev (Fichiers uniquement) [WinDev Codes]

Demandé et répondu par KPiTN le 27-Sep-2004 12:14 (2682 Lectures)

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

9 Commentaires