На форме создаешь два ListBox'a. Первый (PL1) делаешь невидимым,
а второй (pl2) - основным. Далее в PL1 добавляешь полные адреса
файлов, а в PL2 - уже переделанные на более короткие
(пример: PL1 - 'C:\Music\Sound.mp3',a pl2 - 'Sound.mp3'). При
двойном клике на PL2 - PLAY(pl1.items[pl2.itemindex]).
В таймире написать условие:
if position=length then //если позиция вспр. = Длине дорожки тогда
begin
pl2.itemindex:=pl2.itemindex+1;
play(pl1.items[pl2.itemindex]);
end;
|