Можно же вроде разделить на две колонки список. Ну можно и вывести в ListBox с помощью TextOut в свойстве Canvas. Такая поддержка в поздних версиях Delphi. В 2006 Delphi 100% есть функция TListBox.Canvas.TextOut.
Время вопроизводимого файла:
Процедура определения времени:
Код:
function GetTime(leng : Longint) : string; //leng - время в миллисекундах
begin
var
strTime : string;
sec : longint;
min : longint;
begin
sec := trunc(leng/1000);
min := trunc(sec/60);
sec := sec - min*60;
strTime := IntToStr(min);
if sec < 10 then strTime+':0'+IntToStr(sec)
else strTime := strTime + ':' + IntToSDtr(sec);
GetTime := strTime;
end;
Переменная leng = TMediaPlayer.Length или Position(продолжительность или позиция). Функция универсальна.
Имя файла - TMediaPlayer.FileName. Обрезать имя файла ExtractFileName.(например, C:\Music\Music2\my_music.mp3 ->>> my_music.mp3).
Взять папку файла - ExtractFilePath.
Взять диск файла - ExtractFileDrive.