FileForums

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   Blackbox Inno Setup Script (https://fileforums.com/showthread.php?t=94425)

pakrat2k2 17-04-2013 16:34

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 21-04-2013 03:33

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

Razor12911 22-04-2013 08:23

@mikey26
hopeless and hopeful at the same time.

He must upgrade script so that feature can work.

Pein46 22-04-2013 18:28

Can you give me script for "compact view"..
http://s21.postimg.org/467zd6tlj/isdonedll.png

Razor12911 22-04-2013 22:00

@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 :D

Pein46 22-04-2013 22:54

@Razor12911

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

Razor12911 23-04-2013 00:23

I just showed you what to do.

Post #37

felix1788 23-04-2013 01:00

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 :

Code:

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 23-04-2013 01:11

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

Code:

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

felix1788 23-04-2013 01:34

@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..
http://s23.postimg.org/yp4poaxd7/Untitled.png

Razor12911 23-04-2013 01:36

hmm, those files must be created using freearc

Pein46 23-04-2013 01:50

@Razor12911

Quote:

[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 23-04-2013 02:41

script with all files?

felix1788 23-04-2013 02:46

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

Razor12911 23-04-2013 02:55

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;


All times are GMT -7. The time now is 04:04.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com