View Single Post
  #2  
Old 19-04-2021, 04:01
Cesar82's Avatar
Cesar82 Cesar82 is offline
Registered User
 
Join Date: May 2011
Location: Brazil
Posts: 1,074
Thanks: 1,814
Thanked 2,304 Times in 787 Posts
Cesar82 is on a distinguished road
Quote:
Originally Posted by L33THAK0R View Post
Ah alright, sorry was just hoping that'd it'd be possible to put the needed resources inside of the ASIS generated .exe, as was possible with v7.2.0.0, guess I won't be using v7.2.2.0+ lol
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');
Reply With Quote
The Following 3 Users Say Thank You to Cesar82 For This Useful Post:
Flzzy (19-05-2021), L33THAK0R (19-04-2021), pratikpatel8982 (28-04-2021)