Thread: **New Installer
View Single Post
  #78  
Old 21-11-2015, 05:59
JRD!'s Avatar
JRD! JRD! is offline
Registered User
 
Join Date: Sep 2015
Location: Matrix
Posts: 274
Thanks: 225
Thanked 600 Times in 168 Posts
JRD! is on a distinguished road
Quote:
Originally Posted by ShadowEagle View Post
No, i only want to remove that the app folder will be deleted if a isdone error will happen.
Did you try to modify the code in the UltraArc module in the section CurStepChanged ?

Code:
procedure CurStepChanged(CurStep: TSetupStep);
begin
   if (CurStep = ssInstall) and FileExists(ExpandConstant('{src}\records.ini')) then
     UltraARC_Process;

   if (CurStep=ssPostInstall) and ISDoneError then begin
      MemoIsdoneList.clear;
       MemoExecute:='Scanning files...' + #13#10 +
       'Rolling back changes...' + #13#10 +
        'Error!';
          MemoIsdoneList.Lines.Add(MemoExecute);
         UnBtn.Enabled:=False;
//        Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
//      DelTree(ExpandConstant('{app}'), True, True, True);
   end;
end;

Last edited by JRD!; 21-11-2015 at 06:07.
Reply With Quote