-+- COMPLETE - Inno Setup Script -+-

[Dante1995]

BBoxScript is test
working 100%
lang english

[Andrey167]

Originally Posted by Dante1995

BBoxScript

Great Work Bro, do not tell how to add the components page here?

[minh_k43sj]

Originally Posted by Dante1995

BBoxScript is test
working 100%
lang english

great
you can add music background to scrip ?

[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;

[minh_k43sj]

Originally Posted by Dante1995

BBoxScript is test
working 100%
lang english

How to add skin.cjstyles to scrip, please help me

[Dante1995]

Originally Posted by minh_k43sj

How to add skin.cjstyles to scrip, please help me

Simply enter the code under the following headings in blue and if there is no paste all the code

ex: only

UnloadSkin;

or
all

procedure DeinitializeUninstall;
begin
UnloadSkin;
end;

Simply enter the isSkin.dll files and Tiger.cjstyles in the folder style

#define SkinDll "isSkin.dll"
#define StyleName "Tiger.cjstyles"

[Setup]

[Files]
Source: "style\{#SkinDll}"; DestDir: "{app}"; Flags: ignoreversion; Attribs: hidden system;
Source: "style\{#StyleName}"; DestDir: "{app}"; Flags: ignoreversion; Attribs: hidden system;

[ Code]
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\{#SkinDll} stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\{#SkinDll} stdcall delayload';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external '[email protected] stdcall';

function InitializeSetup: Boolean;
begin
ExtractTemporaryFile('{#SkinDll}');
ExtractTemporaryFile('{#StyleName}');
LoadSkin(ExpandConstant('{tmp}\{#StyleName}'), '');

Result:=True;
end;

procedure DeinitializeSetup;
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}') ), 0);
UnloadSkin;
end;

function InitializeUninstall: Boolean;
begin
FileCopy(ExpandConstant('{app}\{#SkinDll}'), ExpandConstant('{tmp}\{#SkinDll}'), False);
FileCopy(ExpandConstant('{app}\{#StyleName}'), ExpandConstant('{tmp}\{#StyleName}'), False);
LoadSkin(ExpandConstant('{tmp}\{#StyleName}'), '');
Result:=True;
end;

procedure DeinitializeUninstall;
begin
UnloadSkin;
end;