Mislim da ce ovo da ti pomogne preuzeto iz mog mp3playera :)
gde je DTNTMMPlayer1 media player
Code:
procedure TMainForm.ShowTime;
var
str : string;
min,sec,time : integer;
begin
time := round(DTNTMMPlayer1.Position/1000);
min := time div 60;
sec := time mod 60;
str := Format('%.2d:%.2d',[min,sec]);
timelbl.Caption := str;
end;
procedure TMainForm.timelblClick(Sender: TObject);
var
min,sec,time : integer;
begin
time := round(DTNTMMPlayer1.tracklength[songindex]/1000);
min := time div 60;
sec := time mod 60;
timelbl.Caption := format('%.2d:%.2d',[min,sec]);
end;
by samadhi
Let there be Pascal and God made Lazarus and blessed Linux
Mediaplayer duzina fajla
Registrovani: 1 ( vjova )