NecroVisioN (DVD9 to 2xDVD5)

[peterf1999]

Originally Posted by mondragon

two loaders ?
idont have time to do this.

One loader (dxsetup.exe), the other is original directx setup (dx.exe)

function InitializeSetup(): Boolean;

var
ResultCode: integer; InS: string; InL: string;

    begin

    // Directx setup

    Exec (ExpandConstant('{src}\DX.exe'),'', '', SW_SHOW,
    ewWaitUntilTerminated, ResultCode)
   //
    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{81FF29CE-2D23-45FC-8BDE-7491A15F2B02}',
      'InstallSource', InS)
    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{81FF29CE-2D23-45FC-8BDE-7491A15F2B02}',
      'InstallLocation', InL)

   //unpack freearc archive and exit

    Exec (InS+'NV_arc.exe', '-x -d'+'"'+InL+'\data'+'"'+' -y -s2', '', SW_SHOW,
      ewWaitUntilTerminated, ResultCode)
    Result:=FALSE
  //
    end;

[peterf1999]

Originally Posted by mondragon

then dxsetup will be loaded twice
once by inno and second by original installer on the end

one time

function InitializeSetup(): Boolean;

var
ResultCode: integer; InS: string; InL: string;

    begin

    // Directx setup

    Exec (ExpandConstant('{src}\DX.exe'),'', '', SW_SHOW,
    ewWaitUntilTerminated, ResultCode)
   //
    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{81FF29CE-2D23-45FC-8BDE-7491A15F2B02}',
      'InstallSource', InS)
    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{81FF29CE-2D23-45FC-8BDE-7491A15F2B02}',
      'InstallLocation', InL)

   //unpack freearc archive and exit

    Exec (InS+'NV_arc.exe', '-x -d'+'"'+InL+'\data'+'"'+' -y -s2', '', SW_SHOW,
      ewWaitUntilTerminated, ResultCode)
    Result:=FALSE
  //
    end;

the original setup calls inno loader (Dxsetup.exe) and it exits after unpacking & directx installation (Result:=FALSE) .