mp3 Schnipsel

Erstellt zB. 30 sec mp3 Schnipsel aus Minutenlangen Tracks:

MovieName$ = "C:Dokumente und EinstellungenXXXEigene DateienEigene MusikXXXXXX.mp3"

If InitMovie() = 0
MessageRequester("Error", "Cant initialize movie playback !", 0)
End
EndIf
If LoadMovie(0, MovieName$)
OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie")
PlayMovie(0, WindowID(0))

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Else
MessageRequester("Error", "Cant load the movie...", 0)
EndIf