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

Reply
 
Thread Tools Display Modes
  #61  
Old 19-11-2015, 13: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 13:18.
Reply With Quote
Sponsored Links
  #62  
Old 19-11-2015, 14:02
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 397
Thanks: 100
Thanked 568 Times in 175 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, 14: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, 14:42
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 397
Thanks: 100
Thanked 568 Times in 175 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, 14: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 15:14.
Reply With Quote
  #66  
Old 20-11-2015, 02: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, 13:34
JRD!'s Avatar
JRD! JRD! is offline
Registered User
 
Join Date: Sep 2015
Location: Matrix
Posts: 227
Thanks: 186
Thanked 503 Times in 140 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, 22:57
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 397
Thanks: 100
Thanked 568 Times in 175 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, 181 views)
File Type: png Screenshot_2.png (36.1 KB, 179 views)
Attached Files
File Type: rar Mod Disk Space FreeArc Version.rar (6.9 KB, 28 views)

Last edited by rinaldo; 21-11-2015 at 00:06.
Reply With Quote
  #69  
Old 21-11-2015, 00:42
pakrat2k2's Avatar
pakrat2k2 pakrat2k2 is offline
Moderator
 
Join Date: Apr 2005
Location: Canada
Posts: 6,233
Thanks: 2,457
Thanked 6,941 Times in 2,504 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, 01:10
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 397
Thanks: 100
Thanked 568 Times in 175 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, 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
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, 03:30
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 397
Thanks: 100
Thanked 568 Times in 175 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, 04: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 04:38.
Reply With Quote
  #74  
Old 21-11-2015, 04:55
JRD!'s Avatar
JRD! JRD! is offline
Registered User
 
Join Date: Sep 2015
Location: Matrix
Posts: 227
Thanks: 186
Thanked 503 Times in 140 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, 05: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
Conversion Designer/Installer Creator Razor12911 Conversion Tutorials 1560 16-12-2017 09:54
Game Installer Designer by altef_4 altef_4 Conversion Tutorials 210 04-12-2017 14:40
Crysis 3 DVD9 to 3xDVD5 Custom Installer spawniectes PC Games - CD/DVD Conversions 79 31-08-2017 08:19
altef_4's installer altef_4 Conversion Tutorials 242 25-06-2017 04:12
Tutorial using CI 8.0.0 yener90 Conversion Tutorials 424 21-10-2014 10:49



All times are GMT -7. The time now is 04:49.


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