ISArcEx - A FreeArc Archive Extractor Plugin for InnoSetup

[BLACKFIRE69]

ISArcEx - FreeArc Archive Extractor Plugin for InnoSetup

ISArcEx v0.4

- Now instead of doing it manually, the total percentage is automatically calculated at run-time according to the uncompressed data sizes of the archives.
- The amount of data currently extracted and the number of MB of uncompressed data in the archive are added to the callback. (As requested)
- Added better and more detailed error handling.
- Improved to work with components.
- Fixed speed issue.
- Fixed some minor bugs.
- There is no back-compatibility with the previous versions (< v0.4).

Screenshots:

[lolaya]

i love u work ♥

[Gehrman]

what is the problem?

[BLACKFIRE69]

Originally Posted by Gehrman

what is the problem?

1. Goto line 546, (Ctrl + G then 546)

2.

Change
  LabelTime3 := TLabel.Create(WizardForm);
  with LabelTime3 do begin
    ...
    Left     := 180;
    Top      := 200;
  end;

To
  LabelTime3 := TLabel.Create(WizardForm);
  with LabelTime3 do begin
    ...
    Left     := WizardForm.FinishedLabel.Left;
    Top      := WizardForm.FinishedLabel.Top + ScaleY(120);
  end;

[Spotless]

Hello Blackfire
Could you edit this script for me?

i want to add launch a game check box to the finish page
and when i type the shortcut name called Battle.net it must be Battle.net.lnk for my file location but it does not make it correct
and open a website checkbox too

and a question can i copy ur dll to a new empty script and add my archives to it? because i wanna do some edits with the wizardform designer

thanks!

[BLACKFIRE69]

Originally Posted by Spotless

a question can i copy ur dll to a new empty script and add my archives to it? because i wanna do some edits with the wizardform designer

thanks!

sorry for the late reply.
you can include ISArcEx for any script. but just copying the dll is not enough.
you should know how to work with the ISArcEx.dll. follow the examples provided for help. or you can PM your script and i can help you out.

Originally Posted by Spotless

Hello Blackfire
Could you edit this script for me?

i want to add launch a game check box to the finish page
and when i type the shortcut name called Battle.net it must be Battle.net.lnk for my file location but it does not make it correct
and open a website checkbox too

ok, check out the attachment. also press "CTRL + F" and search for the word "NewChanges".

.

[Gehrman]

Hi BLACKFIRE69
How to remove this section?

[BLACKFIRE69]

Originally Posted by Gehrman

Hi BLACKFIRE69
How to remove this section?

1. Comment the second line of [types] section.

[Types]
Name: full; Description: Full installation; Flags: iscustom
;Name: custom; Description: Custom installation;

2. Remove types from the [Components] section.

Before:

[Components]
Name: extra; Description: Extra; Types: full custom;
...
Name: voice; Description: Interface Language and Voices; Types: full;
...

After:

[Components]
Name: extra; Description: Extra;
...
Name: voice; Description: Interface Language and Voices;
...

.

[Masquerade]

First of all, sorry for digging up this topic.

I have a small question about IsArcEx. If I wanted to run a batch file or other script after unpacking the FreeArc archive but also keep the elapsed timer running, whereabouts should I put the command?

All my post-FreeArc command run in a procedure called masquerade_work, so I call this after the FreeArc extraction finishes.

I have tried putting it on the line above IsArcExStop();, but this does not keep the timer running after the last archive has finished extracting:

for i:= 1 to ISArcExDiskCount do
  begin
    ISArcExError := not ISArcExExtract(i, ExpandConstant('{app}\'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'));
    if ISArcExError then break;
  end;
  until true;
  masquerade_work();
ISArcExStop;

Is there something I am doing incorrectly? The reason I would like to keep the elapsed timer running is because some of my scripts run for a long time after extracting data (recompressing, patching large files etc..) so it's important that the installer does not look stuck towards the user.

Thanks,
Masquerade

[BLACKFIRE69]

Originally Posted by Masquerade

First of all, sorry for digging up this topic.

I have a small question about IsArcEx. If I wanted to run a batch file or other script after unpacking the FreeArc archive but also keep the elapsed timer running, whereabouts should I put the command?

All my post-FreeArc command run in a procedure called masquerade_work, so I call this after the FreeArc extraction finishes.

I have tried putting it on the line above IsArcExStop();, but this does not keep the timer running after the last archive has finished extracting:

for i:= 1 to ISArcExDiskCount do
  begin
    ISArcExError := not ISArcExExtract(i, ExpandConstant('{app}\'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'));
    if ISArcExError then break;
  end;
  until true;
  masquerade_work();
ISArcExStop;

Is there something I am doing incorrectly? The reason I would like to keep the elapsed timer running is because some of my scripts run for a long time after extracting data (recompressing, patching large files etc..) so it's important that the installer does not look stuck towards the user.

Thanks,
Masquerade

@Masquerade

Timer will run until it calls ISArcExStop.

...

  masquerade_work();
  ISArcExStop;  // Timer Stops

...

[audiofeel]

It is a little unclear how to specify the path for unpacking, for example, "data2.bf" I need to unpack it in the documents folder. I found how to change the path, but it changes for all archives.
that is, I need to "data1.bf" and "data3.bf " unpacked to the {app} folder. "data 2.bf " unpacked to the {documents} folder

[Masquerade]

I have encountered a similar problem. Sometimes I need to extract an archive located in {app} and extract it to {app}. Adding a disk from {app} will cause the No Archives to Extract error.

[hitman797]

Originally Posted by audiofeel

It is a little unclear how to specify the path for unpacking, for example, "data2.bf" I need to unpack it in the documents folder. I found how to change the path, but it changes for all archives.
that is, I need to "data1.bf" and "data3.bf " unpacked to the {app} folder. "data 2.bf " unpacked to the {documents} folder

{userdocs} & {commondocs}
The path to the My Documents folder.

[audiofeel]

Originally Posted by hitman797

{userdocs} & {commondocs}
The path to the My Documents folder.

is everything done in a tricky way there. can't you figure it out without 100 grams. if you change the constant, it will change for all archives

ISArcExDiskCount:= 0;
      if FileExists(ExpandConstant('{src}\{#Data1Path}')) then
      begin
        ISArcDiskAddingFalied:= ISArcExAddDisks(ExpandConstant('{src}\{#Data1Path}'), '{#DiskPassword}');
        if ISArcDiskAddingFalied then break;
        ISArcExDiskCount:= ISArcExDiskCount + 1;
      end;
        for i:= 1 to ISArcExDiskCount do
        begin
          ISArcExError:= not ISArcExExtract(i, ExpandConstant('{app}\'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'));
          if ISArcExError then break;
        end;

[BLACKFIRE69]

Originally Posted by audiofeel

is everything done in a tricky way there. can't you figure it out without 100 grams. if you change the constant, it will change for all archives

ISArcExDiskCount:= 0;
      if FileExists(ExpandConstant('{src}\{#Data1Path}')) then
      begin
        ISArcDiskAddingFalied:= ISArcExAddDisks(ExpandConstant('{src}\{#Data1Path}'), '{#DiskPassword}');
        if ISArcDiskAddingFalied then break;
        ISArcExDiskCount:= ISArcExDiskCount + 1;
      end;
        for i:= 1 to ISArcExDiskCount do
        begin
          ISArcExError:= not ISArcExExtract(i, ExpandConstant('{app}\'), ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'));
          if ISArcExError then break;
        end;

ok, i'll let you change the output directory when adding disks.

 <--- Change --->

1. syntax:

   function ISArcExAddDisks(Inputfile, Password, OutputPath: Widestring): boolean;

   function ISArcExExtract(DiskNumber: Integer; CfgFile, WorkPath: Widestring): boolean;


2. example:

// Disk Adding part
repeat
  if FileExists(ExpandConstant('{src}\data1.bf')) then 
  begin
    ISArcDiskAddingFalied:= ISArcExAddDisks(ExpandConstant('{src}\data1.bf'), 
               '{#DiskPassword}', ExpandConstant('{app}'));

    if ISArcDiskAddingFalied then break;
    ISArcExDiskCount := ISArcExDiskCount + 1;
  end;

  ...

  #ifdef Components
  if IsComponentSelected('something1\something2') then 
  begin
    ISArcDiskAddingFalied:= ISArcExAddDisks(ExpandConstant('{src}\ConfigShit.bf'), 
               '{#DiskPassword}', ExpandConstant('{userdocs}\BFGames'));

    if ISArcDiskAddingFalied then break;
    ISArcExDiskCount := ISArcExDiskCount + 1;
  end;

  ...

  #endif
until true;


.....
  // Extraction
   
  for i := 1 to ISArcExDiskCount do 
  begin
    ISArcExError := not ISArcExExtract(i, ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\temp'));
    if ISArcExError then break;
  end;
.....

summary:

  data1.bf       --->    {app}
  ...
  configShit.bf  --->    {userdocs}\BFGames}
  ...

Note: just replacing the library (.dll) is not enough. update your previous scripts as well.


.