function GetPositionEX (ShowMS : boolean):DWORD;
var
  SongPos: int64; // in Lv gibts nur int32
  FloatPos: FLOAT;
begin
  result := 0;
  SongPos := BASS_ChannelGetPosition(Channel);
  if SongPos < 0 then
    SongPos := 0;
  FloatPos := BASS_ChannelBytes2Seconds(Channel, SongPos);
If ShowMS then
  Result := round(1000 * FloatPos) //  milli sec
  else
  Result := round(FloatPos) // seconds
end;

Reply via email to