Hi
@Erel this is a very small summary of my program
Dim sp As MediaPlayer
sp.Initialize2("sp")
sp.load(File.DirAssets,"xxxxxxxx001")
sp.PLAY
then the file becomes xxxxxxxxx002
xxxxxxxxx003
xxxxxxxxx004 .....
With this instructions the screen always remains illuminated:
Dim onscreen As PhoneWakeStateSub
Activity_Resume
onscreen.keepalive(True)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
onscreen.releasekeepalive
End Sub
But if the user press Home or other the program, at the end of song, stopped
Thanks