WDForge.org - Forums

Re: ClipBoard

Sujet: Re: ClipBoard
par G_Angel sur 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 ?