;.lib "shell32.dll"
;
;api_DragAcceptFiles (hwnd%, fAccept%) : "DragAcceptFiles"
;api_DragFinish (hDrop%) : "DragFinish"
;api_DragQueryFile% (HDROP%, UINT%, lpStr$, ch%) : "DragQueryFileA"
;api_DragQueryPoint% (HDROP%, lpPoint*) : "DragQueryPoint"

Graphics 400,300,0,2
SetBuffer FrontBuffer()

Local HWND = api_GetActiveWindow()
api_DragAcceptFiles(HWND, True)
Print "Fensterhandle "+HWND

Local Anzahl
Local x = 40, y = 40
Local Bank=CreateBank(1024)
Local Inhalt$ = ""


While Not KeyHit(1)
   
   ;Anzahl der Dragdateien erfragen
   Anzahl = api_DragQueryFile(Bank, $FFFFFFFF, Inhalt$, 261)
   ;api_DragQueryFile% (HDROP%, UINT%, lpStr$, ch%) : "DragQueryFileA"
   ;1.Parameter: Handle auf einen Speicherbereich, der die ‘Dropped Files’ enthält. Dieses Handle Lässt sich über das Abfangen der Message WM_DROPFILES (563) herausfinden.
   ;2.Parameter: Der bei 0 beginnende Index (die Ordnungsnummer) des auszulesenden Files oder $FFFFFFFF, um die Anzahl der aufgenommenen Files zu erfahren.
   ;3.Parameter: Mindestens 261 Bytes grosse Bereichsvariable, die das ausgelesene File aufnimmt.
   ;4.Parameter: Die Grösse der Bereichsvariablen aus Parameter 3 in Bytes.
   
   Text x, y, Anzahl
   
   y = y + 14
   If y > 240
      x = x + 20
      y = 40
   End If
   Delay 250
Wend


api_DragFinish(HWND)
api_DragAcceptFiles(HWND, False)
End