[nbstudio]

скажите кто писал плеер, как вывести с помощью процедуры TEXTOUT в
ListBox название и время воспроизводимого файла.

[VladOfMonster]

Можно же вроде разделить на две колонки список. Ну можно и вывести в 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.

[nbstudio]

м-да я правда забыл сказать что плеер использует библиотеку Bass, но в принципе что нужно было я уже узнал, меня в принципе интересует сама отрисовка в ListBox. И к стати, TextOut есть и в Delphi7.

[VladOfMonster]

Нужно просчитать размер ListBox, а затем вывести...

А скриншот этого ListBox можешь предоставить???

Я же не знаю, как он выглядит.

[nbstudio]

проблема разъяснилась, спасибо .