Blackbox Inno Setup Script

[Pein46]

@Razor12911
This is my script (with files)..

[felix1788]

@Razor12911
hmm i mean ..why always get error like this

and how to fix it ?
thx...

[Pein46]

@felix1788

setup-1a.bin must be packed using freearc..

[Razor12911]

@Pein46

Kinda busy with a script, will your update script later on.

[jksengko]

Error in this (Caption:=' Shortcut will be created in following «Start?

[pakrat2k2]

should read Start Menu

[Kurutucu]

Updated 1.3

-Changed interface.

-Fixed text grounds.

-Added splash and logo.

-You can create images in PSD files folder with *.psd.

[Kurutucu]

Originally Posted by felix1788

@Razor12911
hmm i mean ..why always get error like this

and how to fix it ?
thx...

Data.cab missing. Compress your game files with freearc. For no compression use freearc -m0 method. And don't use archive password.

[Razor12911]

Here is Unicode

Tweaked the Script a bit.

[Razor12911]

@Kurutucu

Note 2:

I don't think using setup-1.bin or setup-1a.bin is a good example, Inno Setup can delete those files when you compile script because it thinks those files are created by it.

[Kurutucu]

@Razor12911

I know. First compile script. Then create setup-1.bin

[elnesr]

i compress files with this method
-mprecomp+srep+lzma:a1:mfbt4:d200m:fb128:mc1000:lc8
what should i change in script to extract files ? , and how to extract more than 1 file ?
Thx

[pakrat2k2]

Originally Posted by elnesr

i compress files with this method
-mprecomp+srep+lzma:a1:mfbt4:d200m:fb128:mc1000:lc8
what should i change in script to extract files ? , and how to extract more than 1 file ?
Thx

find in script

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\setup-1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

add another line for additional filenames, ALSO change ( 0, 0, ) for each additional file IE 2 files then each would be 50 ( must add up to 100 ( 0, 50,)) and so on for each additional file added.

Razor'

in script section

With GroupLbl do begin
    //Transparent:=true;
    Parent:=WizardForm;
    //Alignment:=taCenter;
    Caption:='Setup will create shortcuts in the following Start';
missing (space) Menu';
 
Caption:='Setup will create shortcuts in the following Start Menu';

[Razor12911]

@Pakrat2k2

add arc.ini

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\setup-1.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;

@Kurutucu

How can you have two of
#define NeedSize "6666"
#define PrecompInside
#define SrepInside
#define precomp "0.42"
#define unrar
#define XDelta
#define PackZIP
these in the same script? you are now confusing inno.

One in main.iss and one in ISDone\ISDone.iss and both are different.

[huanvip_1994]

her.....

var
NewCheckBox: TCheckBox;

procedure WizardFormResizer(Sender: TObject);
begin
if NewCheckBox.Checked = True then
begin
WizardForm.Width:=NewWizardFormSizeX
WizardForm.Height:=NewWizardFormSizeY
end else begin
WizardForm.Width:=OldWizardFormSizeX
WizardForm.Height:=OldWizardFormSizeY
end;
end;

procedure InitializeWizard;
begin
NewCheckBox:= TCheckBox.Create(WizardForm);
with NewCheckBox do
begin
Parent:= WizardForm.InstallingPage;
Left:= SetPositionX;
Top:= SetPositionY;
Width:= SetSizeX;
Height:= SetSizeY;
Checked:= False;
OnClick:= @WizardFormResizer;
Caption := 'Compact View';
end;
end;