[ryderx34]

Сообщение от insert

знаю что можно с помощью библиотки Bass.dll но никак не получается(

Код:

var
  SN: DWORD;

// FormCreate
BASS_Init(-1, 44100, 0, handle, nil);

// Play
SN:=Bass_StreamCreateFile(false, PChar('C:\music.mp3'),0,0,0);
BASS_ChannelPlay(SN, false);

// FormClose
BASS_StreamFree(SN);
BASS_Free();

а после оканчания она повторялась

Код:

// Timer
if BASS_ChannelGetPosition(SN,BASS_POS_BYTE)=BASS_ChannelGetLength(SN,BASS_POS_BYTE) then
  begin
    BASS_ChannelStop(SN);
    BASS_ChannelPlay(SN, false);
  end;