Habs jetzt!
Delphi-Quellcode:
procedure TFormPlayer.Image7Click(Sender: TObject);
var i: integer;
begin
BASS_ChannelPause(channel);
position := 0;
Playlist.ItemIndex:= i;
i := playlist.ItemIndex;
i:= i+1;
Channel := BASS_StreamCreateFile(FALSE, PChar(playlist.items[i]), 0, 0, 0);
if i >= 0 then
BASS_StreamPlay(Channel, False, 0);
end;
Kann man das in diesem Code prüfen ob es hinten angekommen ist?