Mini Ninjas (DVD9 to 1xDVD5)

[peterf1999]

This simple code (setup.exe) launch MINI NINJAS original installer (NSIS) & unpack freearc archive at end of installation

function InitializeSetup(): Boolean;

var
ResultCode: integer; path: string;

begin

  if not RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mini Ninjas') then
  begin
  Exec (ExpandConstant('{src}\Install.exe'),'', '', SW_SHOW,
     ewWaitUntilTerminated, ResultCode)
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mini Ninjas',
     'UninstallString', path) then
  begin
  path:=RemoveBackslash(ExtractFilePath(path));  
  Exec (ExpandConstant('{src}\MN_arc.exe'), '-x -d'+'"'+path+'"'+' -y -s2', '', SW_SHOW,
      ewNoWait, ResultCode)
  end
  end else
  begin
  Exec (ExpandConstant('{src}\Install.exe'),'', '', SW_SHOW,
     ewNoWait, ResultCode)
  end;

end;