tracklength(integer) in Date (hh,MM,SS) umwandeln??

[Pitch-Bull]

vielen dank, aber ich habe jetzt schon eine lösung gefunden

Delphi-Quellcode:

TrackBar2.Max:=MediaPlayer1.TrackLength[MediaPlayer1.Length];
h:=TrackBar2.max div 3600000000;
m:=(TrackBar2.max -h) div 60000;
s:=(TrackBar2.max -h-m) div 1000;
lblauftext.Caption:=playsound+'   '+inttostr(h)+':'+IntToStr(m)+':'+IntToStr(s);