ASIS: Advanced Simple Installer Script

[KaktoR]

Setup.dll must be in the same folder where Setup.exe is

[Cesar82]

Originally Posted by L33THAK0R

I understand all this but what I mean is where physically should "setup.dll" be present when making the .exe with ASIS, or is it not included inside of the .exe generated by ASIS?

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.

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

[KaktoR]

https://fileforums.com/showpost.php?...&postcount=944

[L33THAK0R]

Is it possible for the CRC checking utility in ASIS compact mode to list "bad", "ok" and files not present, or would this require a code rewrite?

[pratikpatel8982]

Will it work with diskspan_gui 1.0.0.4 if I delete the contents inside diskspan_gui folder and extract the contents of compressor folder inside it.
EDIT: NVM, I'll test myself.

[KaktoR]

Originally Posted by pratikpatel8982

Will it work with diskspan_gui 1.0.0.4 if I delete the contents inside diskspan_gui folder and extract the contents of compressor folder inside it.
EDIT: NVM, I'll test myself.

Yes it works.

[KaktoR]

Originally Posted by L33THAK0R

Is it possible for the CRC checking utility in ASIS compact mode to list "bad", "ok" and files not present, or would this require a code rewrite?

Code changes are needed.

[L33THAK0R]

Originally Posted by KaktoR

Code changes are needed.

Drat! Had a feeling that would be the case.

[alucard1973]

Hello,
I have a problem, here, as shown in the image, when I select the file that I want to install, it does not give me the number of MB or GB it uses for French Langage, there are 4 games in total but just put 1 with different language to test.
Likewise, with CIU there is the Task, but not on ASIS 7.2.2a, is it possible to put it manually?
I also want to know what is Component1.Level=0
Thank you