Play .xm from Resource (Delphi)

[quakergod]

Hi!
i have created a aqua.rc file with this content:
AquaSound  RCDATA   AQUA.xm
And i want to Play this File on FormCreate!
here is my Delphi Source:

Code Select Expand

procedure TForm1.FormCreate(Sender: TObject);
begin
    (* setup output - default device, 44100hz, stereo, 16 bits *)
  if  not BASSMOD_Init(-1,44100,0) then begin
    Error('Can''t initialize device');
    BASSMOD_Free
    end
else    if BASSMOD_MusicLoad(FALSE, PChar('H:\mods\Aqua.xm'), 0, 0, BASS_MUSIC_LOOP or BASS_MUSIC_RAMPS or BASS_MUSIC_SURROUND or BASS_MUSIC_POSRESET) <> 0 then begin
      BASSMOD_MusicPlay;
    end
  end;
  end.And i want to use the Resource File instead of H:\mods\Aqua.xm.

Can someone please help me ?

[quakergod]

please...

[WingZero]

Try reading this thread:
http://www.un4seen.com/YaBB.cgi?board=bass&action=display&num=1058000173

[quakergod]

i dont understand it, its not delphi and my english is not so good  

[WingZero]

Well, I don't know Delphi, but hopefully someone who does can translate it for you.