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

Reply
 
Thread Tools Display Modes
  #61  
Old 26-10-2018, 03:07
Midnights Midnights is offline
Registered User
 
Join Date: Aug 2015
Location: Canada
Posts: 23
Thanks: 2
Thanked 0 Times in 0 Posts
Midnights is on a distinguished road
Hi, how i can add Time Remaining/Elapsed to the script?

Anyone can share me the part of the code i need?

Here is what i use (original script):

Code:
procedure ExtractTemporaryFileIfNoExist(Filename: String);
begin
  if not FileExists(ExpandConstant('{tmp}\' + Filename)) then
    ExtractTemporaryFile(Filename);
end;

procedure ISDone_Resources;
begin
  ExtractTemporaryFileIfNoExist('Arc.ini');
  ExtractTemporaryFileIfNoExist('English.ini');
  ExtractTemporaryFileIfNoExist('ISDone.dll');
  ExtractTemporaryFileIfNoExist('UnArc.dll');
  ExtractTemporaryFileIfNoExist('arc.ini');
  ExtractTemporaryFileIfNoExist('CLS-DiskSpan.dll');
  ExtractTemporaryFileIfNoExist('CLS-LOLZ.dll');
  ExtractTemporaryFileIfNoExist('CLS-LOLZ_x64.exe');
  ExtractTemporaryFileIfNoExist('CLS-LOLZ_x86.exe');
  ExtractTemporaryFileIfNoExist('CLS-SREP.DLL');
  ExtractTemporaryFileIfNoExist('CLS-SREP_x64.exe');
  ExtractTemporaryFileIfNoExist('CLS-SREP_x64.exe');
  ExtractTemporaryFileIfNoExist('XTool.exe');
  ExtractTemporaryFileIfNoExist('hif2raw_dll.dll');
  ExtractTemporaryFileIfNoExist('liblz4.dll');
  ExtractTemporaryFileIfNoExist('libzstd.dll');
  ExtractTemporaryFileIfNoExist('lzo2.dll');
  ExtractTemporaryFileIfNoExist('oo2core_4_win64.dll');
  ExtractTemporaryFileIfNoExist('raw2hif_dll.dll');
  ExtractTemporaryFileIfNoExist('zlibwapi.dll');
end;        
                                          
type
  TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
  TRequestDisk = function(APath, AFilename: String): String;

var
  ISDoneCancel: Integer;              
  ISDoneError: Boolean; 

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 SrepInit(TmpPath:PAnsiChar;VirtMem,MaxSave:Cardinal):boolean; 
  external '[email protected]:ISDone.dll stdcall delayload';
function PrecompInit(TmpPath:PAnsiChar;VirtMem:cardinal;PrecompVers:single):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 ChangeLanguage(Language:AnsiString):boolean;
  external '[email protected]:ISDone.dll stdcall delayload';           
function SuspendProc:boolean;                                                             
  external '[email protected]:ISDone.dll stdcall';                                                    
function ResumeProc:boolean;                                                            
  external '[email protected]:ISDone.dll stdcall';
procedure ClsInit(Path: String; Parent: HWND);
  external '[email protected]:cls-diskspan.dll cdecl'; 
procedure ClsSourcePath(Path: String);
  external '[email protected]:cls-diskspan.dll cdecl'; // deprecated 'use ClsInit instead'
procedure ClsDiskRequest(RequestDisk: TRequestDisk);
  external '[email protected]:cls-diskspan.dll cdecl'; // deprecated 'use ClsInit instead'

function GetMessage(MsgNum: Integer; Var1, Var2: String): String;                                                            
begin
  Result:=ExpandConstant('{cm:Message'+IntToStr(MsgNum)+'}');
  StringChange(Result,'%1',Var1);
  StringChange(Result,'%2',Var2);
end;

procedure ProgressLabels(Status, CurrentFile: String);
begin
  WizardForm.StatusLabel.Caption:=Status;
  with WizardForm.FilenameLabel do
    Caption := MinimizePathName(CurrentFile, Font, Width);
end;

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
  ProgressLabels(GetMessage(3,'',''), CurrentFile);
  if OveralPct <= WizardForm.ProgressGauge.Max then
    WizardForm.ProgressGauge.Position := OveralPct;
  Result := ISDoneCancel;                                                            
end;                                                                    
                                                                                                                                                       
function MyDiskRequest(APath, AFilename: String): String;                          
var                                                                                        
  MsgResult: Integer;                                                                                    
begin                                                                                                                                                 
  Result := APath;                                        
  if not FileExists(AddBackSlash(Result) + AFilename) then
    repeat
      MsgResult := MsgBox(GetMessage(1, AFilename,''), mbConfirmation, MB_OKCANCEL);
      if MsgResult = mrCancel then
        WizardForm.CancelButton.OnClick(nil);
      if (MsgResult = mrOk) and (FileExists(AddBackSlash(Result) + AFilename) = False) then
        if MsgBox(GetMessage(2,'',''), mbConfirmation, MB_YESNO) = mrYes then
          if GetOpenFileName('', Result, '', AFilename + '|' + AFilename, AFilename) then
            Result := ExtractFileDir(Result); 
    until (FileExists(AddBackSlash(Result) + AFilename) = True) or (ISDoneError = True);
end;
                                                                                                         
procedure ISDone_Unpack;                                                             
begin                                                                 
  ISDone_Resources;             
  ISDoneError:=false;
  if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then
  begin
    ChangeLanguage('English');
    if SrepInit('',512,0) and PrecompInit('',128, 0) and FileSearchInit(true) then
    begin
      WizardForm.ProgressGauge.Position := 0;                                       
      Wizardform.ProgressGauge.Max := 1000;                                     
      ClsInit(ExpandConstant('{src}'),WizardForm.Handle);
      // ClsSourcePath(ExpandConstant('{src}'));
      // ClsDiskRequest(@MyDiskRequest); // buggy as fuck... use at own risk
      if not ISArcExtract(0, 100, ExpandConstant('{src}\data.bin.001'), ExpandConstant('{app}'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), false) then
        ISDoneError := True;
    end;
    ISDoneStop;
  end;
  if ISDoneError = True then
    WizardForm.CancelButton.OnClick(nil);
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  MsgResult: Integer;
begin                                                                                  
  case CurStep of
    ssInstall:
      ISDone_Unpack;
    ssPostInstall:
    begin
      if ISDoneError then
        Exec(ExpandConstant('{uninstallexe}'),'/verysilent','',SW_HIDE, ewWaitUntilTerminated, MsgResult);
    end;
  end;
end;
Reply With Quote
Sponsored Links
  #62  
Old 27-11-2018, 01:12
Punisher Punisher is offline
Banned
 
Join Date: Nov 2018
Location: India
Posts: 54
Thanks: 37
Thanked 0 Times in 0 Posts
Punisher is on a distinguished road
Hi I'm new here, i like to use this
CLS-DiskSpan but i don't understand it completely,
so please can anyone give me, a Tutorial?

I Need to know how to make High Compress method.
When i try it im end up with
(.tmp) file that means something wrong.
How do i change compression method.
I have read the Readme note but it didn't say where to put compression method and what is arc.ini what should I do with it. Please answer me..

Last edited by Punisher; 27-11-2018 at 01:14.
Reply With Quote
  #63  
Old 27-12-2018, 11:38
yasitha's Avatar
yasitha yasitha is offline
Registered User
 
Join Date: Apr 2013
Location: Krypton
Posts: 286
Thanks: 203
Thanked 43 Times in 29 Posts
yasitha is on a distinguished road
when i click Finish button this error show up
How do i fix it?
Please Help!

This is an .iss error not packing error.
so please tell me what should i change.
I have try all of them,
i have read all posts here,
but it didn't work
So that's why i ask help please.
Attached Images
File Type: jpg 2017-10-18_12-17-01.jpg (28.2 KB, 119 views)
__________________
Keep Up The Good Works!

Last edited by yasitha; 27-12-2018 at 11:40.
Reply With Quote
  #64  
Old 27-12-2018, 16:26
Golden-Mask's Avatar
Golden-Mask Golden-Mask is offline
Registered User
 
Join Date: Dec 2018
Location: -_-
Posts: 13
Thanks: 20
Thanked 5 Times in 5 Posts
Golden-Mask is on a distinguished road
I know, there a lot of templates and stuff like that uploaded to file-forums but then it failed......

Not my ground to complain
Reply With Quote
  #65  
Old 27-12-2018, 19:53
yasitha's Avatar
yasitha yasitha is offline
Registered User
 
Join Date: Apr 2013
Location: Krypton
Posts: 286
Thanks: 203
Thanked 43 Times in 29 Posts
yasitha is on a distinguished road
Quote:
Originally Posted by Golden-Mask View Post
I know, there a lot of templates and stuff like that uploaded to file-forums but then it failed......

Not my ground to complain
What's the problem bro?
__________________
Keep Up The Good Works!
Reply With Quote
  #66  
Old 28-12-2018, 07:51
Golden-Mask's Avatar
Golden-Mask Golden-Mask is offline
Registered User
 
Join Date: Dec 2018
Location: -_-
Posts: 13
Thanks: 20
Thanked 5 Times in 5 Posts
Golden-Mask is on a distinguished road
No I was just saying that he abandoned ASC even though it was going to be epic

BTW i have no problem why?
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
Quantum Break GTX590 PC Games - CD/DVD Conversions 105 25-03-2019 08:28
Bioshock Infinite Complete Edition (7xDVD5) UltraArc + CIU v2.0.3 By *Yener90* GTX590 PC Games - CD/DVD Conversions 13 17-06-2017 10:55
Call of Duty Black OPS 3 + DLC Awakening (11xDVD5) GTX590 PC Games - CD/DVD Conversions 22 30-12-2016 07:46
Mortal Kombat XL (7xDVD5) UltraArc + CIU v2.0.3 By *Yener90* GTX590 PC Games - CD/DVD Conversions 1 13-10-2016 16:03
UltraARC Tutorials, Hints and Examples Razor12911 Conversion Tutorials 33 14-12-2015 07:26



All times are GMT -7. The time now is 05:47.


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