-+- COMPLETE - Inno Setup Script -+-

[Dante1995]

Simple Installer ISDone

[Adonix]

Originally Posted by Dante1995

Simple Installer ISDone

compiling error..

[Dante1995]

Use Inno EE (u)

[Adonix]

Originally Posted by dante1995

use inno ee (u)

done :d

[Adonix]

Originally Posted by Dante1995

Simple Installer ISDone

in output folder there is "data1.arc" what is it for ? should i delete it or it's important file ?

in main_2.iss file what we have to change for different games each time ?

do i have to change the marked things in images each time ??
http://i.imgur.com/XKh8HvR.jpg
http://i.imgur.com/k5sGf9Q.jpg

If i have the different output name like audio-1.bin file then where to make changes in main_2.iss script, please tell all places which we have to change.

if i have only 1 .bin file then do we have to change anything in script ? or if we have 2 or more bin files ??

[Dante1995]

Originally Posted by Adonix

in output folder there is "data1.arc" what is it for ? should i delete it or it's important file ?

in main_2.iss file what we have to change for different games each time ?

do i have to change the marked things in images each time ??
http://i.imgur.com/XKh8HvR.jpg
http://i.imgur.com/k5sGf9Q.jpg

If i have the different output name like audio-1.bin file then where to make changes in main_2.iss script, please tell all places which we have to change.

if i have only 1 .bin file then do we have to change anything in script ? or if we have 2 or more bin files ??

=-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-=
Components:

#Define DirectX          'True' 
#Define VisualC          'True'
#Define Physx            'True'
#Define Frameworks    'True'

True = Active
False = Disable



the progress bar must always be 100% same as the final value, otherwise the process will end before reaching this value
Default is set to unpack a single file
to use multiple repositories (data.extension) must make a division
if we set 100% on (2) archives progress unpacked the archive (1) 100% and then continue with the store 2 came to 200%, and is not to arrive at this value.
then you'll have to set as follows.

Archives:
data1.arc 100% = 1 archive

2 Archives

data1.arc 50% 
data2.arc 50%

3 Archives

data1.arc 33% 
data2.arc 33% 
data3.arc 34%

4 Archives

data1.arc 25% 
data2.arc 25% 
data3.arc 25% 
data4.arc 25%

5 Archives

data1.arc 20% 
data2.arc 20% 
data3.arc 20% 
data4.arc 20% 
data5.arc 20%

Respect the name and extension, it is important that it is (data1, data2, data3) with extension (arc, bin or cab), you can also save with a different extension and give a name to your liking.

example name and extension custom:
data1.game or game.data

final example x 2 Archives:

#define bin1perc 50 
#define bin2perc 50 

#define bin1 "data1.game" 
#define bin2 "data2.game"

[Adonix]

Originally Posted by Dante1995

=-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-==-=-=-=
Components:

#Define DirectX          'True' 
#Define VisualC          'True'
#Define Physx            'True'
#Define Frameworks    'True'

True = Active
False = Disable



the progress bar must always be 100% same as the final value, otherwise the process will end before reaching this value he store 2 came to 200%, and is not to arrive at this value.
then you'll have to set as follows.
.
.
.
.
.
.
.
.

#define bin1 "data1.game"
#define bin2 "data2.game"[/CODE]

Thanks......But

i tested this installer :- http://fileforums.com/showpost.php?p...0&postcount=22

everything was going good but reaching at 25-30% it showed error "precomp.exe has stopped working".
i tested other small file size also but again at 5% it showed precomp problem
please help me. i am using precomp version 0.42 and below compression script to make .bin files.
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''
arc a -lc8 -ep1 -ed -r -w.\ Data\Data-1.bin -mprecomp+srep+lzma:a1:mfbt4:d256m:fb128:mc1000:lc8
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
Please help to fix the error.

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

[Dante1995]

Adonix

please do not post again in my topic .. this is spam

[Adonix]

Originally Posted by Dante1995

please do not post again in my topic .. this is spam

sorry man i got exited too much.