View Single Post
  #2  
Old 15-11-2009, 09:12
bo_3li_h bo_3li_h is offline
Registered User
 
Join Date: Mar 2007
Location: Kuwait
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
bo_3li_h is on a distinguished road
Quote:
Originally Posted by peterf1999 View Post
This simple code (setup.exe) launch MINI NINJAS original installer (NSIS) & unpack freearc archive at end of installation

Code:
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;


Can please tell me how to compile this code? and please let me know where to find some little guide to learn how to use it in the feature for my own conversions, i will appreciate it

and thanks for the conversion, tested under vista 32 it works perfect
Reply With Quote