XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Drag und Drop mit dem Explorer realisieren
Lauffähig ab Profan-Version 5.0
PRFellow - Vorlage
Drag&Drop Beispiel mit Profan 6.x (32 Bit)
Autor: Thomas Hölzer
Def DragAcceptFiles(2) !SHELL32,DragAcceptFiles
Def DragFinish(1) !SHELL32,DragFinish
Def DragQueryFile(4) !SHELL32,DragQueryFileA
Def Sleep(1) !KERNEL32,Sleep
Declare ende%,i%,Anzahl&,PFilename#,FileName$
Dim PFileName#,261  Max_Path +1, Vorsicht bei Profan-Strings (nur 255 Zeichen!)
Cls
WindowTitle Drag&Drop-Beispiel - Beenden mit rechtem Mausklick
DragAcceptFiles(%hwnd,1)
Print Eine oder mehrere Dateien aus dem Explorer ins Fenster ziehen

WhileNot ende%

    GetMessage

    IF equ(%message,563)

        Let anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilename#,261);
        Let i%=0

        While Lt(i%,anzahl&)

            DragQueryFile(&WParam,i%,PFilename#,261);
            Let filename$=String$(PFilename#,0)  Vorsicht, max 255 Zeichen
            AddString filename$
            Inc i%

        Wend

        DragFinish(&WParam);
        Listbox$(Add$(Str$(anzahl&), Drag&Drop-Datei(en) empfangen),2)
        Clearlist

    Elseif Equ(%mousekey,2)

        Let ende%=1

    EndIf

Wend

Dispose PFileName#
DragAcceptFiles(%hwnd,0)
Fin

'Drag et Drop avec dem Explorer realisieren
'Orig.-Autor: Thomas Bois
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Def Sleep(1) !KERNEL32,Sleep
Déclarer ende%,i%,Anzahl&,PFilename#,FileName$
Faible PFileName#,261' Max_Path +1, attention chez Profan-Cordes (seulement 255 marque!)
Cls
Titre de la fenêtre "Drag&Drop-Beispiel - finissons avec rechtem Mausklick"
DragAcceptFiles(%hwnd,1)
Imprimer "Eine ou bien plusieurs Fichiers aus dem Explorer ins la fenêtre ziehen"

WhileNot ende%

    GetMessage

    IF (%message=563)

        anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilename#,261);
        i%=0

        Tandis que i%<anzahl&

            DragQueryFile(&WParam,i%,PFilename#,261);
            filename$=String$(PFilename#,0)' attention, max 255 marque
            AddStrings filename$
            Inc i%

        Wend

        DragFinish(&WParam);
        Listbox$(Str$(anzahl&)+" Drag&Drop-Dossier(en) empfangen",2)
        Clearlist

    Elseif %mousekey=2

        ende%=1

    EndIf

Wend

Dispose PFileName#
DragAcceptFiles(%hwnd,0)
Fin