ASIS: Advanced Simple Installer Script

[L33THAK0R]

Originally Posted by Cesar82

I had already answered before...
Setup.dll must be next to Setup.exe (Same folder) when starting the decompression using ASIS.

Complementing the answer, for those who did not understand:
Setup.dll is not needed before build Setup.exe.
ASIS will check if there is a file with the same name as the executable, but with a .dll extension and will extract it using UnArc.dll/IsDone.dll.
Only these 2 libraries are included in ASIS and are required prior to build Setup.exe.
Nothing else is needed inside Setup.exe during the build of Setup.exe.

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

[Cesar82]

Originally Posted by L33THAK0R

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.

[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:

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');

[L33THAK0R]

Originally Posted by Cesar82

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.

[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:

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!

[Cesar82]

Originally Posted by L33THAK0R

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!

The programming is paschal with preprogrammed functions as in delphi (based on delphi).
I had to change the location of the Setup.dll file (After these changes above it will be in the temporary folder).
It is also necessary to change just below by replacing in 3 lines.

ChangeFileExt(ExpandConstant('{srcexe}'), '.dll')

Replace with:

ExpandConstant('{tmp}\') + ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll'))

After the changes it will look like this;

  //....
  if FileExists(ExpandConstant('{tmp}\') + ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll'))) then
  begin
    if ISDoneInit(ExpandConstant('{tmp}\Records.inf'), $F777, 0,0,0, MainForm.Handle, 0, @UnpackDLLCallback) then
    begin
      if not ISArcExtract(0, 0, ExpandConstant('{tmp}\') + ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll')), ExpandConstant('{tmp}'), '', False, '', ExpandConstant('{tmp}\Arc.ini'), ExpandConstant('{tmp}'), False) then
      begin
        ISDoneError := True;
        SysErrorMessage(DLLGetLastError);
      end;
      ISDoneStop;
      UnloadDLL(ExpandConstant('{tmp}\ISDone.dll'));
    end;
    //...

Good luck!

[L33THAK0R]

Originally Posted by Cesar82

The programming is paschal with preprogrammed functions as in delphi (based on delphi).
I had to change the location of the Setup.dll file (After these changes above it will be in the temporary folder).
It is also necessary to change just below by replacing in 3 lines.

ChangeFileExt(ExpandConstant('{srcexe}'), '.dll')

Replace with:

ExpandConstant('{tmp}\') + ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll'))

After the changes it will look like this;

  //....
  if FileExists(ExpandConstant('{tmp}\') + ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll'))) then
  begin
    if ISDoneInit(ExpandConstant('{tmp}\Records.inf'), $F777, 0,0,0, MainForm.Handle, 0, @UnpackDLLCallback) then
    begin
      if not ISArcExtract(0, 0, ExpandConstant('{tmp}\') + ExtractFileName(ChangeFileExt(ExpandConstant('{srcexe}'), '.dll')), ExpandConstant('{tmp}'), '', False, '', ExpandConstant('{tmp}\Arc.ini'), ExpandConstant('{tmp}'), False) then
      begin
        ISDoneError := True;
        SysErrorMessage(DLLGetLastError);
      end;
      ISDoneStop;
      UnloadDLL(ExpandConstant('{tmp}\ISDone.dll'));
    end;
    //...

Good luck!

Thanks man, really appreciate everything you've done!

[pratikpatel8982]

Can someone plz give link to latest ASIS version? I did not find it in the OP.