FileForums - **New Installer

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - **New Installer (https://fileforums.com/showthread.php?t=97259)

Juste modify CurStepChanged section on UltraArc module:

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;

That answer your question?

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

Quote:

Originally Posted by ShadowEagle (Post 444747)

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;

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

or
ex:

Code:

[UninstallDelete]

Type: files; Name: {app}\bla

Type: filesandordirs; Name: {app}\bla bla 

Type: dirifempty;     Name: {app}\bla bla bla

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!

Quote:

Newbie

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

=>

JRD!:

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

Quote:

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.

Quote:

Originally Posted by ShadowEagle (Post 444762)

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:

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;

          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:

Code:

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:

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;

//          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:

Code:

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;

http://img15.hostingpics.net/pics/182833fsfs.jpg

http://img15.hostingpics.net/pics/633222dsfs.jpg

That answer your question?

Quote:

Originally Posted by rinaldo (Post 443824)

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?

Quote:

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 http://fileforums.com/images/icons/icon14.gif

Thanks fo you support :)

Quote:

ShadowEagle

1) insert codeline to [Setup]

Code:

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

Quote:

Originally Posted by rinaldo (Post 444767)

Ok sorry I misunderstood :o

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

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:

http://i.imgur.com/5FbkQX9.png

http://i.imgur.com/3JP6223.png

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.

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