Code: Alles auswählen
If OpenLibrary(0, "playlist.dll") = 0
MessageRequester("","Error Can't load dll",0)
End
EndIf
CallFunction(0,"InitPlaylistFunctions()")
OpenWindow(0,100,100,500,400,#PB_Window_SystemMenu,"Fenster 1")
CreateGadgetList(WindowID())
TextGadget(3, 10,10,250,20,"",#PB_Text_Center|#PB_Text_Border)
ListViewGadget(44, 6, 200, 230, 148)
ButtonGadget(5, 300, 10, 100, 20, "Add")
CallFunction(0,"CreateNewPlaylist()")
Repeat
EventID = WindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventID = #PB_Event_Gadget
If EventGadgetID()=1
EndIf
If EventGadgetID()=44
EndIf
If EventGadgetID()=5
File$ = OpenFileRequester("","C:\","",0,#PB_Requester_MultiSelection)
CallFunction(0,"AddFileToPlaylist(-1, File$,)")
EndIf
EndIf
Until Quit=1
CallFunction(0,"SetFirstItem()")
Debug CallFunctiont(0,"GetCurrentItem_FullName()")
Delay(100)
End
mfg
Netfreak