Blackbox Inno Setup Script

[pakrat2k2]

why ?

its already in its default location, just that OP didnt know what it was properly called, and wrote it wrong in the script.

[mikey26]

what if u just wanna use the normal compression internal compression from inno?

[Razor12911]

@mikey26
hopeless and hopeful at the same time.

He must upgrade script so that feature can work.

[Pein46]

Can you give me script for "compact view"..

[Razor12911]

@Pein46

example:

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

but you'll have to resize progressbar and lables

[Pein46]

@Razor12911

Can you modify it with my script
http://rghost.net/45490901

[Razor12911]

I just showed you what to do.

Post #37

[felix1788]

excusme sir , i'am newbie want to ask, i have error on final extract show me notice like this " It Is Not Found Any File Specified For IsarcExtract "

i dont change compres method just like this Compression=none
and i have file "setup-1a.bin"

and use default method :

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

what should must i do sir ?

thx

*sorry my bad english

[Pein46]

If your arc data = "setup-1a.bin"

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

[felix1788]

@pein46
thx for help,
i have "setup-1a.bin - setup-1c.bin" and "setup-2a.bin - setup-2c.bin"
so,must add new code for setup-b,c too ?

have error like this when i change what you said before..

[Razor12911]

hmm, those files must be created using freearc

[Pein46]

@Razor12911

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

I'm still didn't know how to resize progressbar and lables..
can you?.. please..
This is my script..

[Razor12911]

script with all files?

[felix1788]

@ Razor12911
how to keep the file can be successfully extracted, whether the script should replace ? Which part should I replace?

[Razor12911]

don't understand what you are asking but if you are asking how to set up archives, read base post, if asking how to remove setup-1a.bin then disable diskspanning in [Setup] but if asking how to keep file after extracting then

use this line, changes are bolded

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

not to keep

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