View Single Post
  #2  
Old 29-05-2019, 07:36
Carldric Clement's Avatar
Carldric Clement Carldric Clement is offline
Registered User
 
Join Date: Aug 2014
Location: Toboh, Sabah, Malaysia
Posts: 596
Thanks: 599
Thanked 659 Times in 234 Posts
Carldric Clement is on a distinguished road
Coding Style

Quote:
Originally Posted by panker1992 View Post
I am working at the moment making masks v3 + 3 ways compression with Inno support.

Method 1
With that said, Inno setup has isdone.dll which has these parameters,
""
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Setup-1.arc'), ExpandConstant('{app}'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then break; ""

the second 0 is the progress bar, if you leave it to 0 the setup will create a records.inf which you can then use to smoothen out your progress bar.

Method 2

if you have 3 Freearc files however and you want to manually put a progress bar here is how

if not ISArcExtract ( 0, 30, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), '', false, 'yourpassword', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then break;
if not ISArcExtract ( 0, 30, ExpandConstant('{src}\data2.bin'), ExpandConstant('{app}'), '', false, 'yourpassword', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then break;
if not ISArcExtract ( 0, 40, ExpandConstant('{src}\data3.bin'), ExpandConstant('{app}'), '', false, 'yourpassword', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then break;

the sum of all second column must be 100!!!!

I officially MOVE here: https://fileforums.com/showthread.php?t=102689
This is no longer a valid space to talk about Masks enjoy v3 and hope you suggest more to go
Here's what I have done to make a code where people to get confused.

Code:
function FreearcExtract(PercentToFinish: double; Source, Output, Password: string): Boolean;
begin
  Result:= ISArcExtract(0, PercentToFinish, ExpandConstant(Source), ExpandConstant(Output), '', false, 
             Password, ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False);
end;
How to use??

Code:
if not FreearcExtract(30, '{src}\Data1.bin', '{app}', 'yourPassword') then break;

Last edited by Carldric Clement; 06-06-2019 at 05:48.
Reply With Quote