#Window = 0
Enumeration Gadget
	#str0
	#edr0
EndEnumeration

If OpenWindow(#Window, 0, 0, 500, 200, "Перетащите файл сюда", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

	StringGadget(#str0, 10, 10, 500 - 20, 30, "")
	EditorGadget(#edr0, 10, 50, 500 - 20, 140)

	EnableGadgetDrop(#str0, #PB_Drop_Files, #PB_Drag_Copy)
	EnableGadgetDrop(#edr0, #PB_Drop_Files, #PB_Drag_Copy)

	Repeat
		Select WaitWindowEvent()
			Case #PB_Event_GadgetDrop
				Select EventGadget()
					Case #str0 ; гаджеты, получившие событие перетаскивания файла/папки
						If Not FindString(EventDropFiles(), Chr(10))
							SetGadgetText(#str0, EventDropFiles())
						EndIf
					Case #edr0
						SetGadgetText(#edr0, EventDropFiles())
				EndSelect
			Case #PB_Event_CloseWindow
				CloseWindow(#Window)
				End
		EndSelect
	ForEver
EndIf