Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Display Modes
  #61  
Old 19-11-2015, 12:15
ShadowEagle's Avatar
ShadowEagle ShadowEagle is offline
Registered User
 
Join Date: Dec 2014
Location: Wonderland
Posts: 138
Thanks: 18
Thanked 21 Times in 18 Posts
ShadowEagle is on a distinguished road
Quote:
Originally Posted by rinaldo View Post
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



Any solution? Anyone other who can help me pls?

Last edited by ShadowEagle; 19-11-2015 at 12:18.
Reply With Quote
Sponsored Links
  #62  
Old 19-11-2015, 13:02
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 608 Times in 185 Posts
rinaldo is on a distinguished road
Quote:
Originally Posted by ShadowEagle View Post
Yes, this is standard. You misunderstood my question since 3 days.

In my ISS file this is included



The Setup shows up this



Any solution? Anyone other who can help me pls?

add a function type:
Code:
function NextButtonClick(CurPageID: Integer): Boolean;
Reply With Quote
  #63  
Old 19-11-2015, 13:09
ShadowEagle's Avatar
ShadowEagle ShadowEagle is offline
Registered User
 
Join Date: Dec 2014
Location: Wonderland
Posts: 138
Thanks: 18
Thanked 21 Times in 18 Posts
ShadowEagle is on a distinguished road
Quote:
Originally Posted by rinaldo View Post
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???
Reply With Quote
  #64  
Old 19-11-2015, 13:42
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 608 Times in 185 Posts
rinaldo is on a distinguished road
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 '[email protected]:ISDone.dll stdcall delayload';
function ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean; external '[email protected]:ISDone.dll stdcall delayload';
function Exec2 (FileName, Param: PAnsiChar;Show:boolean):boolean; external '[email protected]:ISDone.dll stdcall delayload';
function FileSearchInit(RecursiveSubDir:boolean):boolean; external '[email protected]:ISDone.dll stdcall delayload';
function ISDoneInit(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:Cardinal; WinHandle, NeededMem:longint; callback:TCallback):boolean; external '[email protected]:ISDone.dll stdcall';
function ISDoneStop:boolean; external '[email protected]:ISDone.dll stdcall';
function SuspendProc:boolean; external '[email protected]:ISDone.dll stdcall';
function ResumeProc:boolean; external '[email protected]: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;
Reply With Quote
  #65  
Old 19-11-2015, 13:49
ShadowEagle's Avatar
ShadowEagle ShadowEagle is offline
Registered User
 
Join Date: Dec 2014
Location: Wonderland
Posts: 138
Thanks: 18
Thanked 21 Times in 18 Posts
ShadowEagle is on a distinguished road
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;

Last edited by ShadowEagle; 19-11-2015 at 14:14.
Reply With Quote
  #66  
Old 20-11-2015, 01:36
ShadowEagle's Avatar
ShadowEagle ShadowEagle is offline
Registered User
 
Join Date: Dec 2014
Location: Wonderland
Posts: 138
Thanks: 18
Thanked 21 Times in 18 Posts
ShadowEagle is on a distinguished road
Pls write what to do, i script which doesn`t show up needed space is useless for me
Reply With Quote
  #67  
Old 20-11-2015, 12:34
JRD!'s Avatar
JRD! JRD! is offline
Registered User
 
Join Date: Sep 2015
Location: Matrix
Posts: 231
Thanks: 190
Thanked 506 Times in 142 Posts
JRD! is on a distinguished road
Quote:
Originally Posted by ShadowEagle View Post
Yes, this is standard. You misunderstood my question since 3 days.

In my ISS file this is included



The Setup shows up this



Any solution? Anyone other who can help me pls?
Try this:

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

[Setup]
ExtraDiskSpaceRequired="{#ExtraDiskSpaceRequired}"
Reply With Quote
  #68  
Old 20-11-2015, 21:57
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 608 Times in 185 Posts
rinaldo is on a distinguished road
Quote:
Originally Posted by ShadowEagle View Post
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;
2)
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):
Attached Images
File Type: png Screenshot_1.png (49.6 KB, 188 views)
File Type: png Screenshot_2.png (36.1 KB, 186 views)
Attached Files
File Type: rar Mod Disk Space FreeArc Version.rar (6.9 KB, 31 views)

Last edited by rinaldo; 20-11-2015 at 23:06.
Reply With Quote
  #69  
Old 20-11-2015, 23:42
pakrat2k2's Avatar
pakrat2k2 pakrat2k2 is offline
Moderator
 
Join Date: Apr 2005
Location: Canada
Posts: 6,430
Thanks: 2,542
Thanked 7,273 Times in 2,624 Posts
pakrat2k2 is on a distinguished road
^ 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 ?
Reply With Quote
  #70  
Old 21-11-2015, 00:10
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 608 Times in 185 Posts
rinaldo is on a distinguished road
Quote:
Originally Posted by pakrat2k2 View Post
^ 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
Reply With Quote
  #71  
Old 21-11-2015, 02:22
ShadowEagle's Avatar
ShadowEagle ShadowEagle is offline
Registered User
 
Join Date: Dec 2014
Location: Wonderland
Posts: 138
Thanks: 18
Thanked 21 Times in 18 Posts
ShadowEagle is on a distinguished road
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?
Reply With Quote
  #72  
Old 21-11-2015, 02:30
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 608 Times in 185 Posts
rinaldo is on a distinguished road
Quote:
Originally Posted by ShadowEagle View Post
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)
Reply With Quote
  #73  
Old 21-11-2015, 03:22
ShadowEagle's Avatar
ShadowEagle ShadowEagle is offline
Registered User
 
Join Date: Dec 2014
Location: Wonderland
Posts: 138
Thanks: 18
Thanked 21 Times in 18 Posts
ShadowEagle is on a distinguished road
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);
to

Quote:
//DelTree(ExpandConstant('{app}'), True, True, True);
,right?

Best regards

Last edited by ShadowEagle; 21-11-2015 at 03:38.
Reply With Quote
  #74  
Old 21-11-2015, 03:55
JRD!'s Avatar
JRD! JRD! is offline
Registered User
 
Join Date: Sep 2015
Location: Matrix
Posts: 231
Thanks: 190
Thanked 506 Times in 142 Posts
JRD! is on a distinguished road
Quote:
Originally Posted by ShadowEagle View Post
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



to



,right?

Best regards
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?
Reply With Quote
  #75  
Old 21-11-2015, 04:09
ShadowEagle's Avatar
ShadowEagle ShadowEagle is offline
Registered User
 
Join Date: Dec 2014
Location: Wonderland
Posts: 138
Thanks: 18
Thanked 21 Times in 18 Posts
ShadowEagle is on a distinguished road
No, i want to disable the feature DelTree.
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Game Installer Designer by altef_4 altef_4 Conversion Tutorials 234 10-05-2018 17:16
Conversion Designer/Installer Creator Razor12911 Conversion Tutorials 1580 22-04-2018 07:39
Crysis 3 DVD9 to 3xDVD5 Custom Installer spawniectes PC Games - CD/DVD Conversions 79 31-08-2017 07:19
altef_4's installer altef_4 Conversion Tutorials 242 25-06-2017 03:12
Tutorial using CI 8.0.0 yener90 Conversion Tutorials 424 21-10-2014 09:49



All times are GMT -7. The time now is 18:40.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2018, vBulletin Solutions Inc.
Copyright 2000-2017, FileForums @ http://fileforums.com