-+- COMPLETE - Inno Setup Script -+-

[Dante1995]

Originally Posted by minh_k43sj

great
you can add music background to scrip ?

[Files]
Source: File\Bass.dll; DestDir: {tmp}; Flags: dontcopy deleteafterinstall noencryption nocompression
Source: File\music.mp3; DestDir: {tmp}; Flags: dontcopy deleteafterinstall noencryption nocompression

[ Code]
type
HSTREAM = DWORD;

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall delayload';
function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset: DWORD; length: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';
function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';
function BASS_Pause(): Boolean;
external 'BASS_Pause@files:BASS.dll stdcall delayload';
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';
function BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall delayload';
function BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall delayload';


const
BASS_SAMPLE_LOOP = 4;

var
MusicButton: TButton;
Name: string;
i : Integer;

procedure MusicButtonOnClick(Sender: TObject);
begin
if MusicButton.Caption = 'Music On' then
begin
MusicButton.Caption := 'Music Off';
BASS_Pause;
end else 
begin                                                
MusicButton.Caption := 'Music On';
BASS_Start;
end;
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('music.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
BASS_Start;
Name:=ExpandConstant('{tmp}\music.mp3');
i:=BASS_StreamCreateFile(FALSE, PAnsiChar(Name), 0, 0, 4);
if i <> 0 then
begin
BASS_ChannelPlay(i, True);
end;

MusicButton := TNewButton.Create(WizardForm);
MusicButton.Parent := WizardForm;
MusicButton.SetBounds(4,337,131,20);
MusicButton.Caption := 'Music On';
MusicButton.OnClick:=@MusicButtonOnClick;
end;
end;

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