Fórum Media Player #220138

uses
  BASS;

var
  Channel: DWORD;

{ No OnCreate de seu form principal: }
procedure TForm1Create(Sender: TObject);
begin
  BASS_Init(1,44100,0,Handle,nil);
end;

{ No OnDestroy do mesmo form: }
procedure TForm1Destroy(Sender: TObject);
begin
  BASS_Free;
end;

{ Para abrir a música e toca-la: }
procedure TForm1.Button1Click(Sender: TObject);
begin
  Channel :=  BASS_StreamCreateFile(False, PChar(´C:\Arquivo.mp3´),0,0,BASS_STREAM_AUTOFREE);
  BASS_StreamPlay(Channel, False, 0);
  Timer1.Enabled := True;
end;

{ Coloque em um Timer, para indicar o Progresso da música, usando um TScrollBar }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ScrollBar1.Max := Trunc(BASS_ChannelBytes2Seconds(BASS_StreamGetLength(Channel)));

  ScrollBar1.Position := Trunc(BASS_ChannelBytes2Seconds(BASS_ChannelGetPosition(Channel)));
end;

{ Coloque em um Timer (pode ser o mesmo), para limitar a execução da música: }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if BASS_ChannelBytes2Seconds(BASS_ChannelGetPosition(Channel)) >= 20 then // 20 segundos
    BASS_ChannelStop(Channel);
end;