TMediaPlayer

[Dagon]

Ich habe mal einen kleinen Player geschrieben und habe ihn nun gefunden!
So liest man die Länge aus (grob dargestellt):

Delphi-Quellcode:

function Seconds(Time: Integer): Integer;
begin
  Result := HiByte(LoWord(Time));
end;

function Minutes(Time: Integer): Integer;
begin
  Result := LoByte(LoWord(Time));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  len := MediaPlayer1.TrackLength[Nr];
  Edit.Text := Format('%.2d:%.2d', [Minutes(len), Seconds(len)]);
end;

Wobei Nr die Tracknummer ist.