[Klassenas]

И ещё вопрос: хочу реализовать отображение времени в минутах и секундах при помощи TLabel, образец кода взял из статьи "Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд". Вроде всё правильно, но таймер какую-то фигню показывает.

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
 var
  Min, Sec: word;
begin
  with MediaPlayer1 do
  if FileName<>'' then
  begin
    Min:=MCI_TMSF_MINUTE(MediaPlayer1.Position);
    Sec:=MCI_TMSF_SECOND(MediaPlayer1.Position);
    Label3.Caption:=Format('%.2d:%.2d',[Min,Sec]);
  end;

Admin: Обоим предупреждение: Пользуемся тегами!