ASIS: Advanced Simple Installer Script

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