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.