Re: ClipBoard

Posté par G_Angel le 8/6/2005 14:14:41

SI AppelDLL32("user32", "OpenClipboard",0) ALORS
AppelDLL32("user32", "EmptyClipboard" )
Data=""

//Récupération des chemins de fichiers dans une table
POUR i=1 A TableSelectOccurrence(TABLEEXEMPLE)
Data+=TABLEEXEMPLE.Chemin[TableSelect(TABLEEXEMPLE,i)] + Caract(0)
FIN


hGlobal=AppelDLL32("kernel32","GlobalAlloc",0x40,Dimension(df) + Taille(Data))
SI hGlobal ALORS
lpGlobal=AppelDLL32("kernel32","GlobalLock",hGlobal)


df:pFiles = Dimension(df)
AppelDLL32("kernel32","RtlMoveMemory",lpGlobal,&df,Dimension(df))
AppelDLL32("kernel32","RtlMoveMemory",(lpGlobal + Dimension(df)),Data,Taille(Data))
AppelDLL32("kernel32","GlobalUnlock",hGlobal)


// Copie les fichiers dans le press papier
SI AppelDLL32("user32", "SetClipboardData",CF_HDROP,hGlobal) ALORS
AppelDLL32("user32", "CloseClipboard")
FIN
FIN
FIN

----------------

C'est quoi DF ? une classe ? elle se trouve ou ?