с этим выдает ошибку при тестировании
"No MCI device open"
а код такой
Код:
procedure TfrmMyBrowser.ListBox1Click(Sender: TObject);
begin
if SpeedButton2.Tag = 0 then
// вывести в поле метки Label1 имя выбранного файла
Label2.Caption:=ListBox1.Items[ListBox1.itemIndex]
else
frmMyBrowser.Play;
Label4.Caption := IntToStr(MediaPlayer1.TrackLength[1]);
end;