PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2025 → Copie de fichier VERS l'explorateur
Copie de fichier VERS l'explorateur
Débuté par yo-laloue, 18 jan. 2005 16:39 - 1 réponse
Posté le 18 janvier 2005 - 16:39
Bonjour,

je souhaite envoyer vers l'explorateur des fichiers listés dans une
appli Windev.

Le but: Clic droit -->copier depuis mon appli Windev et Clic-droit
-->coller depuis windows afin que windows copie les fichiers
sélectionnés depuis mon appli windev.

QQun a-t-il des infos là dessus ou un bout de code éventuellement.

Merci d'avance

A+
Posté le 18 janvier 2005 - 14:43
Salut

Voici un code qui fait le ce que tu veux
//Début du code
POINT est une structure
x est un entier //Type C : LONG
y est un entier //Type C : LONG
FIN
DROPFILES est une structure
pFiles est un entier //Type C : DWORD
pt est un POINT //Type C : POINT
fNC est un booléen //Type C : BOOL
fWide est un booléen//Type C : BOOL
FIN
iRetour est un entier
strFichier est une chaîne
df est un DROPFILES
hmem est un entier
pmem est un entier
SI API("user32","OpenClipboard",Handle()) <> 0 ALORS
strFichier = "C:\AUTOEXEC.BAT"+Caract(0)+"C:\boot.ini"+Caract(0) //Liste
des fichiers séparés pas le caractère ascii numéro 0
strFichier += Caract(0) //Un caractère 0 à la fin
API("user32","EmptyClipboard")
df:pFiles = Dimension(df)
df:fWide = 0
df:fNC = 0
hmem = API("Kernel32","GlobalAlloc",66,Dimension(df)+Taille(strFichier))
SI hmem <> 0 ALORS
pmem = API("Kernel32","GlobalLock",hmem)
Transfert(pmem,&df,Dimension(df))
Transfert(pmem+Dimension(df),&strFichier,Taille(strFichier))
API("Kernel32","GlobalUnlock",hmem)
iRetour = API("user32","SetClipboardData",15,hmem) //15Ï_HDROP
SI iRetour = 0 ALORS
Erreur(ErreurInfo(errComplet))
FIN
FIN
API("user32","CloseClipboard")
SINON
Erreur(ErreurInfo())
FIN
//Fin du code

Bon dev

Mathieu

"Yohann LALOUE" <yo-laloue@soregor.fr> a écrit dans le message de news:
41ed1654$1@news.pcsoft.fr...

Bonjour,

je souhaite envoyer vers l'explorateur des fichiers listés dans une
appli Windev.

Le but: Clic droit -->copier depuis mon appli Windev et Clic-droit
-->coller depuis windows afin que windows copie les fichiers
sélectionnés depuis mon appli windev.

QQun a-t-il des infos là dessus ou un bout de code éventuellement.

Merci d'avance

A+