FileForums - INNO TROUBLESHOOT

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - INNO TROUBLESHOOT - Questions Here (https://fileforums.com/showthread.php?t=93193)

@red01
anything is possible in inno setup.

Quote:

Originally Posted by Razor12911 (Post 419263)

@red01
anything is possible in inno setup.

Good to hear that.
Can you please tell me how to make any application or game portable by using innosetup..?

I will be thankful to you.

Hello,

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

How to split it?

Quote:

Originally Posted by danswano (Post 419290)

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..

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

He can do it just with Inno...

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

Quote:

Originally Posted by danswano (Post 419301)

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.

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

Quote:

Originally Posted by red01 (Post 419266)

Good to hear that.
Can you please tell me how to make any application or game portable by using innosetup..?

I will be thankful to you.

Portable in what way?

Quote:

Originally Posted by danswano (Post 419290)

Hello,

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

How to split it?

It's not possible with freearc but I can show you a way to do it.

So if you are planning on fitting the 10gb file, this is what you should do. I will implement this on my source.

First, take the 10GB File, use 7zip/winrar to split files to maybe 4gb(if you want to put it in DVD5) then use freearc no compression on each split. maybe Data1.cab, Data2.cab and etc.

to extract do this

Use ISDone to extract the files

Extract Data1.cab, Data2cab and etc to app folder

Use Normal 7zip unpacking for the splits, isdone doesn't supported splitted files.

then back to isdone to extract the 10gb file,

Don't forget to delete them :D

[QUOTE=Razor12911;419306]Portable in what way?

i mean to say..I DONT HAVE TO INSTALL THE PROGRAM OR GAME IN PROGRAM FILES.......Just extract it and we are done to use software/game.

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

Quote:

Originally Posted by red01 (Post 419309)

i mean to say..I DONT HAVE TO INSTALL THE PROGRAM OR GAME IN PROGRAM FILES.......Just extract it and we are done to use software/game.

I think you can certify Inno Setup as Portable, I mean, all it does is extracts Files.

Quote:

Originally Posted by danswano (Post 419319)

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

It's quite easy.

FWRadioButton1 := TNewRadioButton.Create(WizardForm);
with FWRadioButton1 do
begin
Parent := WizardForm;
Tag := 1;
Left := ScaleX(400);
Top := ScaleY(130);
Width := ScaleX(300);
Height := ScaleY(25);
Caption := ExpandConstant('run..');
Checked := True;
Font.Style := [fsBold];
Font.transparent:=true
OnClick := @RadioButtonsOnClick;
end;

how do i transparent the captions? :confused:

Edit
never mind solved another way :p

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;