XProfan

'Drag y Drop con el Explorer realisieren
 $H windows.ph
 $H structs.ph
 $H messages.ph
 $H shellapi.ph
 $H commctrl.ph
 $I PROFALT.INC
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Def Sleep(1) !"KERNEL32","Sleep"
Declarar ende%,i%,Anzahl&,PFilename#,FileName$
Dim PFileName#,461
Cls
Título de la ventana "Drag&Drop-Ejemplo - Beenden con rechtem Mausklick"
DragAcceptFiles(%hwnd,1)
Mensajes del usuario ~WM_DROPFILES'563

Sinestar encargado ende%

    WaitInput

    IF %UMessage =~WM_DROPFILES

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

        Mientras que Lt(i%,anzahl&)

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

        Wend

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

    Elseif Equ(%mousekey,2)

        Let ende%=1

    EndIf

Wend

Disponer PFileName#
DragAcceptFiles(%hwnd,0)
End