|
#21
|
|||
|
|||
|
Hello everybody,
I'm using IsArcEx for FreeArc archive decompression and I am attempting to apply a hdiffz patch after install, here is how I'm doing so: Code:
procedure patching;
var
ResultCode: Integer;
begin
Exec(ExpandConstant('{tmp}\hpatchz.exe'), (ExpandConstant('{app}\...\file.one {app}\...\file.two {app}\...\file.three')), (ExpandConstant('{app}')), SW_SHOW, ewWaitUntilTerminated, ResultCode)
DeleteFile (ExpandConstant('{app}\...\file.one'));
DeleteFile (ExpandConstant('{app}\...\file.two'));
end;
Code:
if (ISArcDiskAddingSuccess) and ISArcExInit(MainForm.Handle, {#TimeFormat}, @ProgressCallback) then
begin
repeat
if ISArcExDiskCount = 0 then begin
MsgBox('There is no any archive found for unpacking.', mbError, MB_OK);
break;
end;
ChangeLanguage('English');
//ChangeLanguage('Russian');
for i := 1 to ISArcExDiskCount do begin
ISArcExError := not ISArcExExtract(i, ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'));
if ISArcExError then break;
end;
until true;
patching();
ISArcExStop;
if ISArcExError then
MsgBox('Installation is corrupted.', mbError, MB_OK)
end;
HideControls;
WizardForm.CancelButton.Visible := true;
WizardForm.CancelButton.Enabled := false;
end;
What I would like to happen is the timer continuing and after the patch is applied for it to end. Thanks in advance |
|
|
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 |