View Single Post
  #17  
Old 23-10-2017, 16:23
Simorq's Avatar
Simorq Simorq is offline
Registered User
 
Join Date: Mar 2014
Location: Iran
Posts: 642
Thanks: 3,602
Thanked 1,308 Times in 464 Posts
Simorq is on a distinguished road
Quote:
Originally Posted by danswano View Post
Thank you razor for this amazing cls, i've been waiting for it for a very long time and you are very welcomed back.
When i use the browse feature i get those errors but when i insert the disk normally i get no error, any idea why i'm getting these error only when i use browse?
the installer finish properly in both cases.
The errors happens right after i hit finish.
Thanks.

Another problem:
how to extract another single arc archive after the split extraction is done? the installer is just skipping it and finish.
Code:
    begin
      WizardForm.ProgressGauge.Position := 0;
      Wizardform.ProgressGauge.Max := 1000;
      ClsSourcePath(ExpandConstant('{src}'));
      ClsDiskRequest(@MyDiskRequest);
      if not ISArcExtract(0, 90, ExpandConstant('{src}\data.bin.001'), ExpandConstant('{app}'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), false) then
      if not ISArcExtract(0, 10, ExpandConstant('{src}\singlearchive.arc'), ExpandConstant('{app}'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), false) then
        ISDoneError := True;
    end;
    ISDoneStop;
  end;
  if ISDoneError = True then
    WizardForm.CancelButton.OnClick(nil);
end;;
Note: i can extract each file alone but not together using the same above code for each.

I found a solution to this problem

If ClsDiskRequest (@MyDiskRequest); Disabled will not be a problem during installation.
Reply With Quote
The Following User Says Thank You to Simorq For This Useful Post:
danswano (23-10-2017)