Would anybody be interested in a portable Winamp?

;Copyright (C) 2004-2008 John T. Haller of PortableApps.com
;Copyright (C) 2008 Devo
;Copyright (c) 2009 habenyamin
;Website: http://PortableApps.com/Development/test

;This software is OSI Certified Open Source Software.
;OSI Certified is a certification mark of the Open Source Initiative.

;This program is free software; you can redistribute it and/or
;modify it under the terms of the GNU General Public License
;as published by the Free Software Foundation; either version 2
;of the License, or (at your option) any later version.

;This program is distributed in the hope that it will be useful,
;but WITHOUT ANY WARRANTY; without even the implied warranty of
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;GNU General Public License for more details.

;You should have received a copy of the GNU General Public License
;along with this program; if not, write to the Free Software
;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

!define NAME "WinampPortable"
!define PORTABLEAPPNAME "Winamp Portable"
!define APPNAME "Winamp"
!define VER "5.5.6.0"
!define WEBSITE "PortableApps.com/Development/test"
!define DEFAULTEXE "winamp.exe"
!define DEFAULTAPPDIR "winamp"
!define DEFAULTSETTINGSDIR "settings"

;=== Program Details
Name "${PORTABLEAPPNAME}"
OutFile "..\..\${NAME}.exe"
Caption "${PORTABLEAPPNAME} | PortableApps.com"
VIProductVersion "${VER}"
VIAddVersionKey ProductName "${PORTABLEAPPNAME}"
VIAddVersionKey Comments "Allows ${APPNAME} to be run from a removable drive.  For additional details, visit ${WEBSITE}"
VIAddVersionKey CompanyName "PortableApps.com"
VIAddVersionKey LegalCopyright "John T. Haller"
VIAddVersionKey FileDescription "${PORTABLEAPPNAME}"
VIAddVersionKey FileVersion "${VER}"
VIAddVersionKey ProductVersion "${VER}"
VIAddVersionKey InternalName "${PORTABLEAPPNAME}"
VIAddVersionKey LegalTrademarks "PortableApps.com is a Trademark of Rare Ideas, LLC."
VIAddVersionKey OriginalFilename "${NAME}.exe"
;VIAddVersionKey PrivateBuild ""
;VIAddVersionKey SpecialBuild ""

;=== Runtime Switches
CRCCheck On
WindowIcon Off
SilentInstall Silent
AutoCloseWindow True
RequestExecutionLevel user

; Best Compression
SetCompress Auto
SetCompressor /SOLID lzma
SetCompressorDictSize 32
SetDatablockOptimize On

;=== Include
!include "GetParameters.nsh"
!include "Registry.nsh"
!include "MUI.nsh"
;(NSIS Plugins)
!include TextReplace.nsh

;(Custom)

!include StrRep.nsh
;=== Program Icon
Icon "..\..\App\AppInfo\appicon.ico"

;=== Icon & Stye ===
!define MUI_ICON "..\..\App\AppInfo\appicon.ico"

;=== Languages
!insertmacro MUI_LANGUAGE "English"

LangString LauncherFileNotFound ${LANG_ENGLISH} "${PORTABLEAPPNAME} cannot be started. You may wish to re-install to fix this issue. (ERROR: $MISSINGFILEORPATH could not be found)"
LangString LauncherAlreadyRunning ${LANG_ENGLISH} "Another instance of ${APPNAME} is already running. Please close other instances of ${APPNAME} before launching ${PORTABLEAPPNAME}."
LangString LauncherAskCopyLocal ${LANG_ENGLISH} "${PORTABLEAPPNAME} appears to be running from a location that is read-only. Would you like to temporarily copy it to the local hard drive and run it from there?$\n$\nPrivacy Note: If you say Yes, your personal data within ${PORTABLEAPPNAME} will be temporarily copied to a local drive. Although this copy of your data will be deleted when you close ${PORTABLEAPPNAME}, it may be possible for someone else to access your data later."
LangString LauncherNoReadOnly ${LANG_ENGLISH} "${PORTABLEAPPNAME} can not run directly from a read-only location and will now close."


Var PROGRAMDIRECTORY
Var SETTINGSDIRECTORY
Var ADDITIONALPARAMETERS
Var EXECSTRING
Var PROGRAMEXECUTABLE
Var INIPATH
Var SECONDARYLAUNCH
Var DISABLESPLASHSCREEN
Var FAILEDTORESTOREKEY
Var USERTYPE
Var MISSINGFILEORPATH


Section "Main"
	;=== Check if already running
	System::Call 'kernel32::CreateMutexA(i 0, i 0, t "${NAME}") i .r1 ?e'
	Pop $0
	StrCmp $0 0 CheckINI
		StrCpy $SECONDARYLAUNCH "true"

	CheckINI:
		;=== Find the INI file, if there is one
		IfFileExists "$EXEDIR\${NAME}.ini" "" NoINI
			StrCpy "$INIPATH" "$EXEDIR"
			Goto ReadINI

	ReadINI:
		;=== Read the parameters from the INI file
		ReadINIStr $0 "$INIPATH\${NAME}.ini" "${NAME}" "${APPNAME}Directory"
		StrCpy "$PROGRAMDIRECTORY" "$EXEDIR\$0"
		ReadINIStr $0 "$INIPATH\${NAME}.ini" "${NAME}" "SettingsDirectory"
		StrCpy "$SETTINGSDIRECTORY" "$EXEDIR\$0"
	

		;=== Check that the above required parameters are present
		IfErrors NoINI
		ReadINIStr $ADDITIONALPARAMETERS "$INIPATH\${NAME}.ini" "${NAME}" "AdditionalParameters"
		ReadINIStr $DISABLESPLASHSCREEN "$INIPATH\${NAME}.ini" "${NAME}" "DisableSplashScreen"

	;CleanUpAnyErrors:
		;=== Any missing unrequired INI entries will be an empty string, ignore associated errors
		ClearErrors

		;=== Correct PROGRAMEXECUTABLE if blank
		StrCmp $PROGRAMEXECUTABLE "" "" EndINI
			StrCpy "$PROGRAMEXECUTABLE" "${DEFAULTEXE}"
			Goto EndINI

	NoINI:
		;=== No INI file, so we'll use the defaults
		StrCpy "$ADDITIONALPARAMETERS" ""
		StrCpy "$PROGRAMEXECUTABLE" "${DEFAULTEXE}"

		IfFileExists "$EXEDIR\App\${DEFAULTAPPDIR}\${DEFAULTEXE}" "" NoProgramEXE
			StrCpy "$PROGRAMDIRECTORY" "$EXEDIR\App\${DEFAULTAPPDIR}"
			StrCpy "$SETTINGSDIRECTORY" "$EXEDIR\Data\${DEFAULTSETTINGSDIR}"
			GoTo EndINI

	EndINI:
		IfFileExists "$PROGRAMDIRECTORY\$PROGRAMEXECUTABLE" FoundProgramEXE

	NoProgramEXE:
		;=== Program executable not where expected
		StrCpy $MISSINGFILEORPATH $PROGRAMEXECUTABLE
		MessageBox MB_OK|MB_ICONEXCLAMATION `$(LauncherFileNotFound)`
		Abort
		
	FoundProgramEXE:
		;=== Check if running
		StrCmp $SECONDARYLAUNCH "true" GetPassedParameters
		FindProcDLL::FindProc "eraser.exe"
		StrCmp $R0 "1" WarnAnotherInstance DisplaySplash

	WarnAnotherInstance:
		MessageBox MB_OK|MB_ICONEXCLAMATION `$(LauncherAlreadyRunning)`
		Abort
	
	DisplaySplash:
		StrCmp $DISABLESPLASHSCREEN "true" GetPassedParameters
			;=== Show the splash screen while processing registry entries
			InitPluginsDir
			File /oname=$PLUGINSDIR\splash.jpg "${NAME}.jpg"
			newadvsplash::show /NOUNLOAD 1200 0 0 -1 /L $PLUGINSDIR\splash.jpg
	
	GetPassedParameters:
		;=== Get any passed parameters
		Call GetParameters
		Pop $0
		StrCmp "'$0'" "''" "" LaunchProgramParameters

		;=== No parameters
		StrCpy $EXECSTRING `"$PROGRAMDIRECTORY\$PROGRAMEXECUTABLE"`
		Goto AdditionalParameters

	LaunchProgramParameters:
		StrCpy $EXECSTRING `"$PROGRAMDIRECTORY\$PROGRAMEXECUTABLE" $0`

	AdditionalParameters:
		StrCmp $ADDITIONALPARAMETERS "" SettingsDirectory

		;=== Additional Parameters
		StrCpy $EXECSTRING `$EXECSTRING $ADDITIONALPARAMETERS`
	
	SettingsDirectory:
		;=== Set the settings directory if we have a path
                         ;IfFileExists "$SETTINGSDIRECTORY\winamp.reg" RegistryBackup
    			;CreateDirectory $SETTINGSDIRECTORY
			;CopyFiles /SILENT `$EXEDIR\App\DefaultData\settings\winamp.reg` $SETTINGSDIRECTORY
                         IfFileExists "$SETTINGSDIRECTORY\${APPNAME}\${APPNAME}.ini" LastSETTINGSDirectory
                          CreateDirectory "$SETTINGSDIRECTORY\${APPNAME}"
                          CopyFiles /SILENT "$EXEDIR\App\DefaultData\settings\*.*" "$SETTINGSDIRECTORY\"
	LastSETTINGSDirectory:
                     ; double up back slashes and store current directory in $2
		${StrReplace} '$1' '\' '??' '$SETTINGSDIRECTORY'
		${StrReplace} '$2' '??' '\\' '$1'
		;get last directory and store in $0
		ReadINIStr $0 "$SETTINGSDIRECTORY\LastDirectory" "WinampPortableSettings" "LastDirectory"
		StrCmp $0 "" StoreLastDirectory
		StrCmp $0 $2 READWinampini ; No change, so just start
		StoreLastDirectory:
		WriteINIStr "$SETTINGSDIRECTORY\${NAME}Settings.ini" "WinamportableSettings" "LastDirectory" $2
        READWinampini:
               IfFileExists "$SETTINGSDIRECTORY\${APPNAME}\Winamp.ini" "" StoreLastDirectoryToWinampini
                     
		ReadINIStr $0 "$SETTINGSDIRECTORY\Winamp.ini" "out_disk" "cfg_output_dir"
	        StrCmp $0 "" StoreLastDirectoryToWinampini
		StrCmp $0 $2 SET$APPDATAto$SETTINGSDIRECTORY ; No change, so just start

         StoreLastDirectoryToWinampini:
                WriteINIStr "$SETTINGSDIRECTORY\${APPNAME}\Winamp.ini" "out_disk" "cfg_output_dir" "$2"

                WriteINIStr "$SETTINGSDIRECTORY\${APPNAME}\Winamp.ini" "out_disk" "cfg_singlefile_output" "$2\\output.wav"

         SET$APPDATAto$SETTINGSDIRECTORY:
          ;(set saving from $APPDATA\Winamp to $SETTINGSDIRECTORY\Winamp)
                ReadINIStr $0 "$PROGRAMDIRECTORY\paths.ini" "Winamp" "inidir"
	        StrCmp $0 "" APPSATATOSETTINGSDIRECTORY
		StrCmp $0 "$SETTINGSDIRECTORY\${APPNAME}" RegistryBackup ; No change, so just start 
         APPSATATOSETTINGSDIRECTORY:
                WriteINIStr "$PROGRAMDIRECTORY\paths.ini" "Winamp" "inidir" "$SETTINGSDIRECTORY\${APPNAME}"

	 RegistryBackup:
		StrCmp $SECONDARYLAUNCH "true" LaunchAndExit
		;=== Backup the registry
		UserInfo::GetAccountType
		Pop $USERTYPE
		${registry::KeyExists} "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft-BackupByWinampPortable" $R0
		StrCmp $R0 "0" RestoreSettings
		${registry::KeyExists} "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft" $R0
		StrCmp $R0 "-1" RestoreSettings
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft" "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft-BackupByWinampPortable" $R0
				Sleep 100
	
	RestoreSettings:
		IfFileExists "$SETTINGSDIRECTORY\winamp.reg" "" BackupRun
		IfFileExists "$WINDIR\system32\reg.exe" "" RestoreTheKey9x
			nsExec::ExecToStack `"$WINDIR\system32\reg.exe" import "$SETTINGSDIRECTORY\winamp.reg"`
			Pop $R0
			StrCmp $R0 '0' BackupRun ;successfully restored key
	RestoreTheKey9x:
		${registry::RestoreKey} "$SETTINGSDIRECTORY\winamp.reg" $R0
		StrCmp $R0 '0' BackupRun ;successfully restored key
		StrCpy $FAILEDTORESTOREKEY "true"

	BackupRun:
		${registry::Read} "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" "Winamp" $0 $1
		StrCmp $0 "" BackupHCR
		${registry::MoveValue} "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" "Winamp" "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" "Winamp-BackupByWinampPortable" $R0

	BackupHCR:
		StrCmp $USERTYPE "Guest" StartProgramNow
		StrCmp $USERTYPE "User" StartProgramNow
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\Applications\winamp.exe" "HKEY_LOCAL_MACHINE\Software\Classes\Applications\winamp.exe-BackupByWinampPortable" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Nullsoft" "HKEY_LOCAL_MACHINE\Software\Nullsoft-BackupByWinampPortable" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp3-skin" "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp3-skin-BackupByWinampPortable" $R0	
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-lang" "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-lang-BackupByWinampPortable" $R0	
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-skin" "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-skin-BackupByWinampPortable" $R0	
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\.wlz" "HKEY_LOCAL_MACHINE\Software\Classes\.wlz-BackupByWinampPortable" $R0	
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\.wsz" "HKEY_LOCAL_MACHINE\Software\Classes\.wsz-BackupByWinampPortable" $R0	
			
	StartProgramNow:
		Sleep 100
		SetOutPath $PROGRAMDIRECTORY
		ExecWait $EXECSTRING
		Delete "$PROGRAMDIRECTORY\paths.ini"
		StrCmp $FAILEDTORESTOREKEY "true" SetOriginalKeyBack
		${registry::SaveKey} "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft" "$SETTINGSDIRECTORY\winamp.reg" "" $R0
		Sleep 100
	
	SetOriginalKeyBack:
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft" $R0
		${registry::DeleteValue} "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" "Winamp" $R0
		${registry::MoveValue} "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" "Winamp-BackupByWinampPortable" "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" "Winamp" $R0
		StrCmp $USERTYPE "Guest" TheEnd
		StrCmp $USERTYPE "User" TheEnd
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\Software\Classes\Applications\winamp.exe" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\Applications\winamp.exe-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\Software\Classes\Applications\winamp.exe" $R0
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\Software\Nullsoft" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Nullsoft-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\Software\Nullsoft" $R0
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp3-skin" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp3-skin-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp3-skin" $R0		
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-lang" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-lang-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-lang" $R0
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-skin" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-skin-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\Software\Classes\MIME\Database\Content Type\interface/x-winamp-skin" $R0
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\Software\Classes\.wlz" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\.wlz-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\Software\Classes\.wlz" $R0	
		${registry::DeleteKey} "HKEY_LOCAL_MACHINE\Software\Classes\.wsz" $R0
		${registry::MoveKey} "HKEY_LOCAL_MACHINE\Software\Classes\.wsz-BackupByWinampPortable" "HKEY_LOCAL_MACHINE\Software\Classes\.wsz" $R0	
		Goto TheEnd
		
	LaunchAndExit:
		Exec $EXECSTRING

	TheEnd:
                 
		${registry::Unload}
		newadvsplash::stop /WAIT
SectionEnd