INNO TROUBLESHOOT - Questions Here - Page 38

Andre Jesus · #1 05-11-2013, 15:48

Hello,
I want to change the default progress bar by a with image PNG customized.
Is possible also, change use only wizardform?
Anybody can show me in both case?

Sem título.jpg

danswano · #2 08-06-2013, 04:58

Hello,

I have a single 10 G.B file that i want to split to 3XDVD5 via arc+inno

How to split it?

y_thelastknight · #3 08-06-2013, 06:41

Quote:

Originally Posted by danswano

Hello,

I have a single 10 G.B file that i want to split to 3XDVD5 via arc+inno

How to split it?

i think freearc doesn't support file split function..

danswano · #4 08-06-2013, 06:51

Yes it does not, it looks i will end up using some command line split/merge tool but how :/

HellRazor · #5 08-06-2013, 07:15

He can do it just with Inno...

danswano · #6 08-06-2013, 07:18

Sure, that's why i mentioned arc+inno.

HellRazor · #7 08-06-2013, 07:29

Quote:

Originally Posted by danswano

Sure, that's why i mentioned arc+inno.

Yeah but you can't do it with arc+inno... You can do it with only with inno because arc does not support splitting the archives.

If you don't have anything specific, use Inno's wizzard.
Set DiskSpanning=true and set SlicesPerDisk as you see it fit.

danswano · #8 08-06-2013, 07:42

I need the srep+arc compression ratio, lzma alone is not enough.

danswano · #9 08-06-2013, 10:09

@Razor, this is so complicated.
I'm thinking of 2 processes max to get the file extracted.

buttignol · #10 13-06-2013, 08:23

Inno setup help disk space
Friends disk size and space available to install is the same when you switch to install on another HD how to fix it
If possible also how to put the point size ex: 149 Gb to 149.50 Gb
Ex: script my script is in two parts.

Quote:

[Code]
Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.2n', [Float]); StringChange(Result, ',', '.');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

Function MbOrTb(Byte: Extended): String;
begin
if Byte < 1024 then Result:= NumToStr(Byte) + ' Mb' else
if Byte/1024 < 1024 then Result:= NumToStr(round(Byte/1024*100)/100) + ' Gb' else
Result:= NumToStr(round((Byte/(1024*1024))*100)/100) + ' Tb'
end;
procedure InitializeWizard3();
var
Page: TWizardPage;
lbl: TLabel;
Path: String;
FreeMB, TotalMB: Cardinal;
begin
Path := ExpandConstant('{pf}');
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
Page := PageFromID(wpSelectDir);

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(105);
lbl.Height := ScaleY(43);
lbl.Caption := ExpandConstant('Espaço total do disco : ') + MbOrTb(TotalMB);
lbl.Left := 0;
lbl.Top := 155;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço em disco disponível: ') + MbOrTb(FreeMB) + ' (' + IntToStr((FreeMB * 100) div TotalMB) + '%)';
lbl.Left := 0;
lbl.Top := 175;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
lbl.Left := 0;
lbl.Top := 195;
lbl.Parent := Page.Surface;
end;
procedure InitializeWizard();
begin
//InitializeWizard1();
//InitializeWizard2();
InitializeWizard3();
end;

Razor12911 · #11 13-06-2013, 09:13

Make an onchange for wizardform.diredit to update changes.

How to do one,

Code:

procedure DirEditOnChange(Sender: TObject);
begin
lbl.caption:= ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
end;

WizardForm.DirEdit.OnChange:= @DirEditOnChange;

to add the two decimals use this mbortb

Code:

Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.2n', [Float]); StringChange(Result, ',', ',');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = ',')) and (Pos(',', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

function MbOrTb(Float: Extended): String;
begin
if Float < 1024 then Result:= NumToStr(Float)+' '+ 'MB'else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' '+'GB' else
Result:= NumToStr(Float/(1024*1024))+' '+'TB';
end;

buttignol · #12 13-06-2013, 09:54

Razor 12911 decimal solved but I am not getting the location to install you could put in my script how

Quote:

procedure DirEditOnChange(Sender: TObject);
begin
lbl.caption:= ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
end;

WizardForm.DirEdit.OnChange:= @DirEditOnChange;

Razor12911 · #13 13-06-2013, 09:56

oops, forgot something.

procedure DirEditOnChange(Sender: TObject);
var
Page: TWizardPage;
lbl: TLabel;
Path: String;
FreeMB, TotalMB: Cardinal;
begin
Path := WizardForm.DirEdit.Text;
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
Page := PageFromID(wpSelectDir);

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(105);
lbl.Height := ScaleY(43);
lbl.Caption := ExpandConstant('Espaço total do disco : ') + MbOrTb(TotalMB);
lbl.Left := 0;
lbl.Top := 155;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço em disco disponível: ') + MbOrTb(FreeMB) + ' (' + IntToStr((FreeMB * 100) div TotalMB) + '%)';
lbl.Left := 0;
lbl.Top := 175;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
lbl.Left := 0;
lbl.Top := 195;
lbl.Parent := Page.Surface;
end;

WizardForm.DirEdit.OnChange:= @DirEditOnChange;

buttignol · #14 13-06-2013, 17:54

Thanks Razor12911 I tried many ways but failed error when compiling (Line 19 Identifier expected) inno setup 5.5.2 unicode

[Code]
Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.2n', [Float]); StringChange(Result, ',', ',');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = ',')) and (Pos(',', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

function MbOrTb(Float: Extended): String;
begin
if Float < 1024 then Result:= NumToStr(Float)+' '+ 'MB'else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' '+'GB' else
Result:= NumToStr(Float/(1024*1024))+' '+'TB';
end;

procedure InitializeWizard3();
begin

procedure DirEditOnChange(Sender: TObject);
var
Path: String;
Page: TWizardPage;
lbl: TLabel;
FreeMB, TotalMB: Cardinal;
begin
Path := WizardForm.DirEdit.Text;
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
Page := PageFromID(wpSelectDir);

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(105);
lbl.Height := ScaleY(43);
lbl.Caption := ExpandConstant('Espaço total do disco : ') + MbOrTb(TotalMB);
lbl.Left := 0;
lbl.Top := 155;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço em disco disponível: ') + MbOrTb(FreeMB) + ' (' + IntToStr((FreeMB * 100) div TotalMB) + '%)';
lbl.Left := 0;
lbl.Top := 175;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
lbl.Left := 0;
lbl.Top := 195;
lbl.Parent := Page.Surface;
end;

WizardForm.DirEdit.OnChange:= @DirEditOnChange;

procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
InitializeWizard3();
end;

lyesbboy · #15 14-06-2013, 06:02

hi all i neeed isdone i how to use it thnx

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup	REV0	Conversion Tutorials	129	21-05-2021 05:51
INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup	REV0	Conversion Tutorials	51	26-03-2015 06:57
Frequently Asked Questions	Joe Forster/STA	PC Games - Frequently Asked Questions	0	29-11-2005 09:48

The Following User Says Thank You to HellRazor For This Useful Post:
danswano (08-06-2013)

The Following User Says Thank You to Razor12911 For This Useful Post:
buttignol (14-06-2013)