Buffer = AllocateMemory(1000)

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
DragAcceptFiles_(WindowID(0),#True)
Repeat
EventID=WaitWindowEvent()
Select EventID
  Case #WM_DROPFILES
    DragQueryFile_(EventwParam(),0,Buffer,1000)
    Debug PeekS(Buffer)
EndSelect
If EventID=#PB_Event_CloseWindow
  Quit=1
EndIf
Until Quit=1
EndIf