[lmikle]

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

Спасибо.
Попробовал ваш вариант. Сам код вроде рабочий.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  R : TResourceStream;
begin
  R := TResourceStream.Create(HInstance, '1', RT_RCDATA);
channel:=BASS_StreamCreateFile(false, R.memory, 0, 0, 0 ); //pchar('11.mp3')
bass_channelplay(channel,true);
end;

P.S. Пробовал при вызове файла прописывать его название по разному. Эффекта не дало.

Там надо указвапть ID ресурса. Естественно, я не знаю с какими ID ты запихал ресурсы, соотв. надо поправить.