**New Installer

[JRD!]

Juste modify CurStepChanged section on UltraArc module:

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;

That answer your question?

[ShadowEagle]

No, i only want to remove that the app folder will be deleted if a isdone error will happen.

[JRD!]

Originally Posted by ShadowEagle

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 ?

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;

[rinaldo]

just create a .ini file and tell him what to delete and what not

or
ex:

[UninstallDelete]
Type: files; Name: {app}\bla
Type: filesandordirs; Name: {app}\bla bla 
Type: dirifempty;     Name: {app}\bla bla bla

[Newbie]

That installer design looks so similar to others I already saw this year, even if I don't use inno anymore (I like other program more), I always liked seeing unique setup designs, but that is just my opinion of course.

But nevertheless users also love to have sth simple, who doesn't.

For .cjstyles style I would recommend Trinium, I think that's the name of it (available with inno ultra iirc), and for vcl style CobaltXEMedia, I liked it the most while using inno.

And of course:

Great Work rinaldo!

[rinaldo]

Newbie

yes ... copy codex installer, it was made a request on the forum and I did the script

=>

[ShadowEagle]

JRD!:

Yes, but doesn`t work. Don`t know why. The messages

MemoExecute:='Scanning files...' + #13#10 +
'Rolling back changes...' + #13#10 +

won`t be displayed.

I want this:

If isdonerror will happen, there should be shown "Error!" in the Memolist and no roleback shout be done.

[JRD!]

Originally Posted by ShadowEagle

JRD!:

Yes, but doesn`t work. Don`t know why. The messages



won`t be displayed.

I want this:

If isdonerror will happen, there should be shown "Error!" in the Memolist and no roleback shout be done.

1) Edit the text in the UltraArc module:

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;
          MemoIsdoneList.Lines.Add('An error has occurred!');
         UnBtn.Enabled:=False;
//        Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
//      DelTree(ExpandConstant('{app}'), True, True, True);
   end;
end;

2) Change the code of the main file as shown below:

if (CurPageID = wpFinished) then
begin
IconDesktop.Enabled:=False;
StartMenu.Enabled:=False;
Soft.Enabled:=False;
DrivesComboBox.Enabled:=False;
//MemoExecute:=+ #13#10 +'Finished Installation...' + #13#10 +
//'Done!';
//MemoIsdoneList.Lines.Add(MemoExecute);
UnBtn.Show;
WizardForm.GroupEdit.Enabled:=False;
WizardForm.GroupBrowseButton.Enabled:=False;
WizardForm.DirEdit.Enabled:=False;
WizardForm.DirBrowseButton.Enabled:=false;
if ISDoneError = False then begin
WizardForm.ClientHeight:=604;
FInstallationLbl.Caption := 'Installation Successfully';
FInstallationLbl.Left:=105;
FInstallationLbl.Font.Color := $0032CD32;
end else begin
FInstallationLbl.Caption := 'Installation Failed';
FInstallationLbl.Font.Color := $000000FF;
WizardForm.ClientHeight:=604;
end;
end;

3) I would tend to this:

UltraArc module:

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;
//          MemoIsdoneList.Lines.Add('An error has occurred!');
         UnBtn.Enabled:=False;
//        Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
//      DelTree(ExpandConstant('{app}'), True, True, True);
   end;
end;

Main file:

if (CurPageID = wpFinished) then
begin
IconDesktop.Enabled:=False;
StartMenu.Enabled:=False;
Soft.Enabled:=False;
DrivesComboBox.Enabled:=False;

UnBtn.Show;
WizardForm.GroupEdit.Enabled:=False;
WizardForm.GroupBrowseButton.Enabled:=False;
WizardForm.DirEdit.Enabled:=False;
WizardForm.DirBrowseButton.Enabled:=false;
if ISDoneError = False then begin
WizardForm.ClientHeight:=604;

MemoIsdoneList.clear;
MemoIsdoneList.Lines.Add('Finished Installation...' + #13#10 + 'Done!');


FInstallationLbl.Caption := 'Installation Successfully';
FInstallationLbl.Left:=105;
FInstallationLbl.Font.Color := $0032CD32;
end else begin

MemoIsdoneList.clear;
MemoIsdoneList.Lines.Add('An error has occurred!');

FInstallationLbl.Caption := 'Installation Failed';
FInstallationLbl.Font.Color := $000000FF;
WizardForm.ClientHeight:=604;
end;
end;

That answer your question?

[JRD!]

Originally Posted by rinaldo

New Installer by Inno Setup EE Type Skin (.cjstyles and VCL) First Version 1.0

Change log v 1.2
Group folder (stored in the directory is correct)
Dir Folder (elongated and moved + added a call for combobox)
Layered Transparency (Code moved .... the closure was faulty)
Desktop and MenuStart icon (Moved)


please .. posted only questions of malfunction or any improvements, but do not post questions about personal changes that not have time to waste for wishes

please .. posted only questions of malfunction or any improvements, but do not post questions about personal changes that not have time to waste for wishes

Because

- VclStylesInno.dll modified

- Add Windows10Dark.vsf

I delete no problem, just want to help make it closer to the original, clear?

[rinaldo]

JRD!

o no no no
message nor for you is for me, i can not edit my scripts always .. you can post what you want and I thank you for this friend


Windows10Dark.vsf is Good

Thanks fo you support

[rinaldo]

ShadowEagle

1) insert codeline to [Setup]

SetupLogging=yes

2) open %temp% and send me logfile

bat for move logfile:

@echo off
xcopy %temp%\Setup*.txt %USERPROFILE%\Desktop\LOG\

runtime error is error in bytecode

[JRD!]

Originally Posted by rinaldo

o no no no
message nor for you is for me, i can not edit my scripts always .. you can post what you want and I thank you for this friend


Windows10Dark.vsf is Good

Thanks fo you support

Ok sorry I misunderstood

[ShadowEagle]

What line i`ve to add into script for using password protected FreeARC archives? Greetz

[Lucas65]

Hello Rinaldo. Thank you so much for the script: a simple, yet elegant. Really nice!
I would have a problem though with the decompression of files created with the method reflate in the compressor created by Felice.
I followed these steps: added the string in arc.ini "unpackcmd = reflate -restore123 $$arcpackedfile$$.tmp $$arcdatafile$$.tmp"; added in the script "UltraArc.iss" files precomp.exe, reflate.exe, raw2hif.exe, rawdet.exe and rawrest.exe but installation me two errors:





Any idea to solve the problem?


Ciao Rinaldo. Grazie mille per lo script: semplice e allo stesso tempo elegante. Veramente bello!
Avrei un problema però con la decompressione di file creati con il metodo reflate presente nel compressore creato da Felice.
Io ho seguito questi passaggi: aggiunto la stringa in arc.ini "unpackcmd = reflate -restore123 $$arcpackedfile$$.tmp $$arcdatafile$$.tmp"; aggiunto nello script "UltraArc.iss" i file precomp.exe, reflate.exe, raw2hif.exe, rawdet.exe e rawrest.exe ma l'installazione mi da quei due errori in successione
Hai qualche idea per risolvere il problema? Io ci sto provando ma non capisco l'inghippo.

[taporocrufeljan]

hi Guys! I'm having error when i'm compiling it.
i dunno what to do.
thanks in advance.
please help.