Bass.dll aktuelle Position auslesen

[DeddyH]

Delphi-Quellcode:

const
  SECONDS_PER_MINUTE = 60;
begin
  (* Nachkommastellen schneiden wir einfach mal ab *)
  WholeSeconds := trunc(Ellapsed);
  (* Und nun mit ganzzahliger Division in Minuten und Sekunden umrechnen *)
  TimeEllapsedStr := Format('%.2d:%.2d', 
    [WholeSeconds div SECONDS_PER_MINUTE,
     WholeSeconds mod SECONDS_PER_MINUTE]);