#1
|
||||
|
||||
ISArcEx - A FreeArc Archive Extractor Plugin for InnoSetup
ISArcEx - FreeArc Archive Extractor Plugin for InnoSetup Quote:
Last edited by BLACKFIRE69; 14-05-2024 at 05:19. Reason: Added latest update |
The Following 34 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
ADMIRAL (27-03-2022), auaksa (09-01-2023), audiofeel (24-03-2022), buttignol (12-03-2022), Cesar82 (20-03-2022), chepgameps4 (21-03-2022), crachlow (01-08-2023), dixen (12-03-2022), Ele (13-03-2022), ffmla (12-03-2022), FIFA_LOVER (13-03-2022), Gehrman (13-03-2022), GTX590 (12-03-2022), Harsh ojha (12-03-2022), hdneo (11-05-2023), hitman797 (07-01-2023), Junior53 (14-09-2023), Karekas (08-03-2023), kj911 (16-03-2022), kozmik (28-02-2023), L0v3craft (13-03-2022), lolaya (20-03-2022), Lord.Freddy (17-08-2022), meadwey (17-05-2024), ramydarkness (22-03-2022), RedDanzig (06-09-2023), ScOOt3r (12-03-2022), sennen (22-03-2024), shazzla (12-03-2022), st0rm (29-03-2022), TheTh1996 (17-07-2024), vint56 (12-03-2022), Vladislav989 (04-01-2023), Wanterlude (13-03-2022) |
Sponsored Links |
#2
|
|||
|
|||
i love u work ♥
|
The Following User Says Thank You to lolaya For This Useful Post: | ||
BLACKFIRE69 (21-03-2022) |
#3
|
||||
|
||||
what is the problem? |
#4
|
||||
|
||||
Code:
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; |
The Following User Says Thank You to BLACKFIRE69 For This Useful Post: | ||
Gehrman (28-03-2022) |
#5
|
||||
|
||||
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!
__________________
Be kind so that people be kind with you Last edited by Spotless; 19-05-2022 at 11:44. |
The Following User Says Thank You to Spotless For This Useful Post: | ||
ADMIRAL (27-07-2022) |
#6
|
||||
|
||||
Quote:
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. Quote:
. Last edited by BLACKFIRE69; 03-04-2023 at 15:06. |
#7
|
||||
|
||||
Hi BLACKFIRE69
How to remove this section? |
#8
|
||||
|
||||
1. Comment the second line of [types] section.
Code:
[Types] Name: full; Description: Full installation; Flags: iscustom ;Name: custom; Description: Custom installation; Code:
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; ... |
#9
|
|||
|
|||
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: Code:
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; Thanks, Masquerade |
#10
|
||||
|
||||
Quote:
@Masquerade Timer will run until it calls ISArcExStop. Code:
... masquerade_work(); ISArcExStop; // Timer Stops ... Last edited by BLACKFIRE69; 03-04-2023 at 15:07. |
The Following 2 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
Cesar82 (21-12-2022), Masquerade (21-12-2022) |
#11
|
||||
|
||||
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 Last edited by audiofeel; 02-01-2023 at 15:17. |
#12
|
|||
|
|||
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.
|
#13
|
||||
|
||||
Quote:
The path to the My Documents folder. |
The Following User Says Thank You to hitman797 For This Useful Post: | ||
Guravkov2010 (03-01-2023) |
#14
|
||||
|
||||
Quote:
Code:
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; Last edited by audiofeel; 03-01-2023 at 02:02. |
#15
|
||||
|
||||
Quote:
ok, i'll let you change the output directory when adding disks. Code:
<--- 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; ..... Code:
summary: data1.bf ---> {app} ... configShit.bf ---> {userdocs}\BFGames} ... Note: just replacing the library (.dll) is not enough. update your previous scripts as well. . Last edited by BLACKFIRE69; 03-04-2023 at 15:07. |
The Following 4 Users Say Thank You to BLACKFIRE69 For This Useful Post: | ||
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
ASIS: Advanced Simple Installer Script | KaktoR | Conversion Tutorials | 1388 | Yesterday 14:55 |
XTool 2020 (Plugins) | Razor12911 | Conversion Tutorials | 404 | 13-07-2024 09:52 |
Best Compression For Archiving | brispuss | PC Games | 13 | 06-09-2023 06:49 |
Game Installer Designer by altef_4 | altef_4 | Conversion Tutorials | 236 | 28-05-2021 03:54 |
Compression Questions | yasitha | Conversion Tutorials | 10 | 09-01-2019 13:29 |