[Code] bass.dll xm play

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall';
 
function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset1: DWORD; offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): DWORD;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall';
 
function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall';
 
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall';

function BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall';
 
function BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall';

const
 BASS_SAMPLE_LOOP = 4;

procedure InitializeWizard();
var
 mp3Handle: HWND;
 mp3Name: string;
begin
 ExtractTemporaryFile('sound.mp3');
 mp3Name := ExpandConstant('{tmp}\sound.mp3');
 BASS_Init(-1, 44100, 0, 0, 0);
 mp3Handle := BASS_StreamCreateFile(FALSE, PAnsiChar(mp3Name), 0, 0, 0, 0, BASS_SAMPLE_LOOP);
 BASS_Start();
 BASS_ChannelPlay(mp3Handle, False);
end;

procedure DeinitializeSetup();
begin
 BASS_Stop();
 BASS_Free();
end;