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)

Quote:

ShadowEagle

with patiently your make a screenshot as you want and when I have time I'll do the job

to find the file in the installers others use this

Quote:

Originally Posted by rinaldo (Post 444392)

with patiently your make a screenshot as you want and when I have time I'll do the job

http://fs5.directupload.net/images/u...9/xp8xn8ze.png

Thank you so much!

Quote:

ShadowEagle

type this

Yeah, very very good :) You`re a master of inno script i think ;)

1. Can you remove the empty space in the middle?

2. How to change this logo in middle on the upper side? It`s a component of the skin file or of the install script?

Best regards

Quote:

ShadowEagle

1 - the logo is simple .. just use gimp or photoshop image and move left or right logo etc ...
2 - You want the checkbox component I understand it (if you where)
3 - the empty space is not a problem
4 - make a second screenshot so I do not 2 times

Quote:

Originally Posted by rinaldo (Post 444451)

1. Okay, sorry -> my fault, i didn`t take a look into files folder :rolleyes:

2. What checkbox?

3. Cool :cool:

4. It`s just to make the window more little / to remove the empty space. All other looks very good. :D

Hey rinaldo I tried to add the password to decompress the files to your installer but continues to give the following error..
http://i66.tinypic.com/2upfn2e.png
?

can you add
-internal compression
-install redistributanles
-color font on mouse
-language suppport

Quote:

Originally Posted by felice2011 (Post 444466)

Hey rinaldo I tried to add the password to decompress the files to your installer but continues to give the following error..
http://i66.tinypic.com/2upfn2e.png
?

sha1pass=felice

Code:

function pass: string;

begin Result := 'f2c3bb4f15071c2926893de07fd34773187ecd9b'; //encrypted pass to sha1

end;



function CheckPassword(Password: String): Boolean;

var p: string;

begin p := pass; Result := GetSHA1OfString(Password) = p;

end;

example: pass 12345

Quote:

Originally Posted by gatosky1620 (Post 444468)

can you add
-internal compression
-install redistributanles
-color font on mouse
-language suppport

1 I do not want to insert internal compression
2 yes in checkbox 1,2,3,4,5 vcredist x86,x64,directx,SocialClub,framework
3 yes color font on mouse
4 yes language ita,eng+but I do not know which add over these :rolleyes:

Quote:

ShadowEagle

mod

NI Update Skin version (fullFiles)

Quote:

Originally Posted by rinaldo (Post 444514)

NI Update Skin version (fullFiles)

nice work man :-):D i do like the simplicity of the script.

just one suggestion if you can keep all you updates to the first page must easier to track just say that you have updated the project and refer to first page to download.

How to set the little drive box to drive d as standard drive?

I defined

Quote:

#define NeedSize "2048"

but the setup show up 8 MB, what`s wrong there?

And how to edit that the "AppName" is shown in Taskbar?

- VclStylesInno.dll modified

- Add Windows10Dark.vsf

http://img15.hostingpics.net/pics/452736Sanstitre.png

Quote:

Originally Posted by ShadowEagle (Post 444649)

How to set the little drive box to drive d as standard drive?

I defined

but the setup show up 8 MB, what`s wrong there?

And how to edit that the "AppName" is shown in Taskbar?

No one? :(

Quote:

Originally Posted by ShadowEagle (Post 444694)

No one? :(

Code:

DefaultDirName=D:\{#Publisher}\{#AppName}

And the needed size problem?

Code:

#define NeedSize "gamesizenumber"

Quote:

Originally Posted by rinaldo (Post 444697)

Code:

#define NeedSize "gamesizenumber"

Yes, this is standard. You misunderstood my question since 3 days.

In my ISS file this is included

Quote:

#define NeedSize "2048"

The Setup shows up this

http://ultraimg.com/images/ERROR.png

Any solution? Anyone other who can help me pls?

Quote:

Originally Posted by ShadowEagle (Post 444699)

Yes, this is standard. You misunderstood my question since 3 days.

In my ISS file this is included

The Setup shows up this

http://ultraimg.com/images/ERROR.png

Any solution? Anyone other who can help me pls?

add a function type:

Code:

function NextButtonClick(CurPageID: Integer): Boolean;

Quote:

Originally Posted by rinaldo (Post 444700)

add a function type:

Code:

function NextButtonClick(CurPageID: Integer): Boolean;

My gosh, I MEAN: I typed in 2048 and your installer is showing 7 MB. You see the difference???

look at this script and you'll understand ;)

Code:



#define needsize 5000000



[Setup]              

AppName=Rina

DefaultDirName={pf}\Rina

DefaultGroupName=Rina

AppVerName=Rina



[Icons] 

Name: "{userdesktop}\un"; Filename: "{app}\unins000.exe"; WorkingDir: "{app}"; Check: "CheckError";



[Files]

Source: "Files\unarc.dll"; DestDir: "{tmp}"; Flags: "dontcopy";

Source: "Files\ISDone.dll"; DestDir: "{tmp}"; Flags: "dontcopy";



[messages]

ButtonNext=< install >



[code*]

var

  ISDoneCancel:integer;

  ISDoneError:boolean;



const

  PCFonFLY=true;

  notPCFonFLY=false;



type

  TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;



function WrapCallback(callback:TCallback; paramcount:integer):longword;external 'wrapcallback@files:ISDone.dll stdcall delayload';

function ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean; external 'ISArcExtract@files:ISDone.dll stdcall delayload';

function Exec2 (FileName, Param: PAnsiChar;Show:boolean):boolean; external 'Exec2@files:ISDone.dll stdcall delayload';

function FileSearchInit(RecursiveSubDir:boolean):boolean; external 'FileSearchInit@files:ISDone.dll stdcall delayload';

function ISDoneInit(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:Cardinal; WinHandle, NeededMem:longint; callback:TCallback):boolean; external 'ISDoneInit@files:ISDone.dll stdcall';

function ISDoneStop:boolean; external 'ISDoneStop@files:ISDone.dll stdcall';

function SuspendProc:boolean; external 'SuspendProc@files:ISDone.dll stdcall';

function ResumeProc:boolean; external 'ResumeProc@files:ISDone.dll stdcall';



function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;

begin

  if OveralPct<=1000 then WizardForm.ProgressGauge.Position := OveralPct;

  WizardForm.Caption:=CurrentFile;

  Result := ISDoneCancel;

end;



procedure CancelButtonOnClick(Sender: TObject);

begin

  SuspendProc;

  if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then ISDoneCancel:=1;

  ResumeProc;

end;



function CheckError:boolean;

begin                        

  result:= not ISDoneError;

end;



Function NumToStr(Float: Extended): String;

Begin

Result:= Format('%.2n', [Float]); StringChange(Result, ',', ',');

while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = ',')) and (Pos(',', Result) > 0) do

SetLength(Result, Length(Result)-1);

End;



function MbOrTb(Float: Extended): String;

begin

if Float < 1024 then Result:= NumToStr(Float)+' MB' else

if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' GB' else

Result:= NumToStr(Float/(1024*1024))+' TB';

end;



function NextButtonClick(CurPageID: Integer): Boolean;

var

  FreeMB, TotalMB: Cardinal;

begin

  Result := True;

  if CurPageID = wpWelcome then begin

    GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeMB, TotalMB);

    if FreeMB<{#needsize} then begin

      MsgBox('bla bla: '+MbOrTb({#needsize})+#13'bla bla bla '+MbOrTb(FreeMB)+' bla '+MbOrTb(TotalMB), mbError, mb_Ok);

      Result := False ;

    end;

  end;

end;



procedure InitializeWizard();

begin

WizardForm.ProgressGauge.Max:=1000;

end;



procedure CurStepChanged(CurStep: TSetupStep);

var ExecError:boolean;

begin

  case CurStep of

    ssInstall: begin

      WizardForm.CancelButton.OnClick := @CancelButtonOnClick;

      ISDoneCancel:=0;  

      ExtractTemporaryFile('unarc.dll');

      ISDoneError:=true;

      if ISDoneInit(ExpandConstant('{src}'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin

        repeat

          if not FileSearchInit(true) then break;

          if not ISArcExtract ( 0, 100, ExpandConstant('{src}\data1.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

          ISDoneError:=false;

        until true;

        ISDoneStop;

      end;

    end;

    ssPostInstall: begin

      if ISDoneError then begin

        WizardForm.ProgressGauge.Hide;

        WizardForm.StatusLabel.Caption:=SetupMessage(msgStatusRollback);

        Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);

      end;

    end;                            

  end; 

end;



function ShouldSkipPage(PageID: Integer): Boolean;

begin

if (PageID=8) or (PageID=10) or (PageID=7) or (PageID=6) then Result:=true;

end;

So i only have to add this line? (Sorry, but i`m no coder. You`ve to help me pls)

Quote:

function NextButtonClick(CurPageID: Integer): Boolean;

Pls write what to do, i script which doesn`t show up needed space is useless for me :(

Quote:

Originally Posted by ShadowEagle (Post 444699)

Try this:

//ISPP
#define ExtraDiskSpaceRequired "1000000000" //Size of the game in Byte

[Setup]
ExtraDiskSpaceRequired="{#ExtraDiskSpaceRequired}"

Quote:

Originally Posted by ShadowEagle (Post 444722)

Pls write what to do, i script which doesn`t show up needed space is useless for me :(

Mod:
a)Change WpWelcome to wpSelectDir
b)Replace code ShouldSkipPage with that under

1)

Code:

Procedure CurPageChanged(CurPageID: Integer);

Begin

if (CurPageID = wpSelectDir) then

begin

WizardForm.NextButton.Caption:='Install';

end;

Code:

function ShouldSkipPage(PageID: Integer): Boolean;

begin

if (PageID=1) Or (PageID=8) or (PageID=10) or (PageID=7)  then Result:=true;

end;

Under the file of a change type (Disk space):

^ rinaldo thanks for this BUT WHY do it in KB ? The norm for all other installers is either MB or GB, can you modify it again to use those values ?

Quote:

Originally Posted by pakrat2k2 (Post 444738)

^ rinaldo thanks for this BUT WHY do it in KB ? The norm for all other installers is either MB or GB, can you modify it again to use those values ?

KB is only in the Popup Message, my script is in MB :)

Pls can you modify the mod and only show "Required HDD Space" on left, replacing the old "Need Space..." text and on the right the music button, do you know what i mean?

Quote:

Originally Posted by ShadowEagle (Post 444740)

Pls can you modify the mod and only show "Required HDD Space" on left, replacing the old "Need Space..." text and on the right the music button, do you know what i mean?

Code:

Space[2].Hide;

Space[3].Hide;

Space[4].Hide;

Space[5].SetBounds(30,228,100,15); //SX

to hide and leave only the RSpace, otherwise you will have to make do, I have already herringbone many things and many mod (I end up here) ;)

If an error happens while installing the rolling back feature delete the whole folder what`s not so good for using this script as on update installer. That`s my last wish, tell me what to delete that the rolling back feature won`t delete the whole folder.

I`ve to edit this line

Quote:

DelTree(ExpandConstant('{app}'), True, True, True);

Quote:

//DelTree(ExpandConstant('{app}'), True, True, True);

,right?

Best regards

Quote:

Originally Posted by ShadowEagle (Post 444743)

Add your line here:

if (CurPageID = wpFinished) and ISDoneError then
begin
UnBtn.Hide;
CustomCancelBtn.Enabled:=False;
DelTree(ExpandConstant('{app}'), True, True, True);
end;

That answer your question?

No, i want to disable the feature DelTree.

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!