View Single Post
  #3  
Old 19-04-2021, 06:23
L33THAK0R's Avatar
L33THAK0R L33THAK0R is offline
Registered User
 
Join Date: Feb 2021
Location: Saudi Arabia
Posts: 406
Thanks: 137
Thanked 117 Times in 70 Posts
L33THAK0R is on a distinguished road
Quote:
Originally Posted by Cesar82 View Post
If version 7.2.0.0 is working well for you, great ...
Older versions may contain a bug that may have been fixed in the newer version.

If you want you can include the Setup.dll file internally from Setup.exe just by adding 4 lines to the script (red lines below). But you must first create Setup.dll and include it with scritp.iss before compiling Setup.exe. To do this, change it in the script:
In the [Files] section add.
Code:
[Files]
....
///////////////////////////////////////////////////////////////////////////////////////////
//////////////// FreeArc/ISDone Files /////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////
Source: "{#SetupSetting("OutputBaseFilename")}.dll"; DestDir: "COMPRESSORS"; Flags: dontcopy nocompression

Source: "Resources\Includes\UnArc.dll"; DestDir: "COMPRESSORS"; Flags: dontcopy
Source: "Resources\Includes\ISDone.dll"; DestDir: "COMPRESSORS"; Flags: dontcopy
In the [Code] section, locate for "procedure UltraARC_Process;" and add the line:
Code:
procedure UltraARC_Process;
var
  Data: Array of TData;
  I, MsgResult: Integer;
  SourceDir, DataFile: String;
  #if UseComponents == "1"
  ComponentFile: String;
  #endif
  SysInfo: TSystemInfo;
  Threads: Integer;
begin
  ExtractTemporaryFile('{#SetupSetting("OutputBaseFilename")}.dll');
  if CompareText('{#SetupSetting("OutputBaseFilename")}.dll', ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll'))) <> 0 then
    FileCopy(ExpandConstant('{tmp}\{#SetupSetting("OutputBaseFilename")}.dll'), ExpandConstant('{tmp}\') + ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll')), False);

  //BEGIN - DISK SPAN GUI CHANGES
  I := 1;
  ISDoneError := False;
  ExtractTemporaryFile('UnArc.dll');

Thank you for being so patient with me man, really appreciate this, I wish I was more competent with python or whatever the script is written in, so that I could save you the trouble of doing this, thanks once again man, you're a hero!
Reply With Quote