Ich habe einen
Link gefunden der mich weiter gebracht hat.
Und so geht's:
Chiptunes.RC
XMMUSIC RCDATA "music.xm"
Ausschnitt aus dem Programm:
Delphi-Quellcode:
Resource := TResourceStream.Create(HInstance, PChar('XMMUSIC'), RT_RCDATA);
GetMem(Data, Resource.Size);
Resource.Read(Data^, Resource.Size);
XMStream := BASS_MusicLoad(True, Data, 0, Resource.Size, BASS_MUSIC_STOPBACK or BASS_MUSIC_RAMP, 0);
BASS_ChannelPlay(XMStream, True);
FreeMem(Data);
FreeAndNil(Resource);
Gruss Alois
