Drag and Drop

SuperStrict 

Local Window:TGadget = CreateWindow("Launcher", 40, 40, 320, 240, ,WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_ACCEPTFILES)

While True

	WaitEvent()

	Select EventID()
	
		Case EVENT_WINDOWCLOSE
			End
			
		Case EVENT_WINDOWACCEPT
			If EventSource() = Window
				Local files:String[] = (EventExtra().ToString()).Split("~n")
				For Local file:String = EachIn files
					Print "Filax Ficher: ~q"+file+"~q"
				Next
			    'Useful code here
			EndIf
						
	End Select
	
Wend

End

;)