;---------------перетягивание файла в окно программы------------
; c помощью друпии
; и по средством Пурика  
;---------------------------------------------------------------
Enumeration  
#Window_0  
#text  
EndEnumeration  
   
Global f.s

;{------------------Окно--------------------------------  
OpenWindow (#Window_0,0,0,400,200,"Перетягивание файла в окно программы",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)  
  TextGadget(#text ,10,10,380,40,"перетянуть файл в окно",#PB_Text_Center )  

   
  ;DropFilesAccept(WindowID(#Window_0),#True) ;друпия
  EnableWindowDrop(#Window_0, #PB_Drop_Files, #PB_Drag_Link) ;Посредством Пурика
;}------------------------------------------------------  

;{-----------------Главный цикл-------------------------  
Repeat  
Event = WaitWindowEvent()  
Window = EventWindow()  
Gadget = EventGadget()  
  Select Event  
;==============Друпия==============================  
  ;Case #WM_DROPFILES  
  ;DropFilesInit()  
  ;f=DropFilesEnum()  
  ;SetGadgetText(#text,f.s)  
;============По средством Пурика=========================  
  Case #PB_Event_WindowDrop  
  f=EventDropFiles()  
  SetGadgetText(#text,f.s)  
;================================================  
  Case #PB_Event_Gadget  
  Select EventGadget()  
  Case 1
  Case 2
  Case 3  
  EndSelect  
  EndSelect  
If Event = #PB_Event_CloseWindow  
Break  
EndIf  
ForEver