[Outdated] Inkscape Portable 0.46 Development Test 2

Hi, it's me again
Well, I've played a bit with the code. I want to learn how this EnvVar-redirecting works.
I've deleted many lines of code and have changed the AppData redirecting.
Furthermore I've removed the SettingsDirectory\AppData renaming. It works for me (WinXP).
If you compare our codes with Winmerge, you will see all changes. But it's up to you whether you'll change your code or not.
Your launcher works too.

;Copyright (C) 2004-2008 John T. Haller of PortableApps.com
;Copyright (C) 2008 Chris Morgan of PortableApps.com

;Website: http://PortableApps.com/InkscapePortable

;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 PORTABLEAPPNAME "Inkscape Portable"
!define APPNAME "Inkscape"
!define NAME "InkscapePortable"
!define VER "1.6.0.0"
!define WEBSITE "PortableApps.com/InkscapePortable"
!define DEFAULTEXE "inkscape.exe"
!define DEFAULTAPPDIR "Inkscape"
!define DEFAULTSETTINGSDIR "settings"
!define DEFAULTGTKDIR "gtk"
!define LAUNCHERLANGUAGE "English"

;=== 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 "PortableApps.com & Contributors"
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
;(Standard NSIS)
!include FileFunc.nsh
!insertmacro GetParameters
!insertmacro GetRoot
!insertmacro GetParent
;(NSIS Plugins)
;(Custom)
!include StrRep.nsh
!include ReplaceInFile.nsh
!include ReadINIStrWithDefault.nsh

;=== Program Icon
Icon "..\..\App\AppInfo\appicon.ico"

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

;=== Languages
LoadLanguageFile "${NSISDIR}\Contrib\Language files\${LAUNCHERLANGUAGE}.nlf"
!include PortableApps.comLauncherLANG_${LAUNCHERLANGUAGE}.nsh

Var PROGRAMDIRECTORY
Var SETTINGSDIRECTORY
Var ADDITIONALPARAMETERS
Var EXECSTRING
Var PROGRAMEXECUTABLE
Var SECONDARYLAUNCH
Var DISABLESPLASHSCREEN
Var LASTDRIVE
Var CURRENTDRIVE
Var MISSINGFILEORPATH
Var GTKDIRECTORY
Var ISDEFAULTDIRECTORY
Var INKSCAPELANGUAGE

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
			;=== Read the parameters from the INI file
			${ReadINIStrWithDefault} $0 "$EXEDIR\${NAME}.ini" "${NAME}" "${APPNAME}Directory" "App\${DEFAULTAPPDIR}"
			StrCpy $PROGRAMDIRECTORY "$EXEDIR\$0"
			${ReadINIStrWithDefault} $0 "$EXEDIR\${NAME}.ini" "${NAME}" "GTKDirectory" "NONE"
			StrCpy $GTKDIRECTORY "$EXEDIR\$0"
			${ReadINIStrWithDefault} $0 "$EXEDIR\${NAME}.ini" "${NAME}" "SettingsDirectory" "Data\${DEFAULTSETTINGSDIR}"
			StrCpy $SETTINGSDIRECTORY "$EXEDIR\$0"
			${ReadINIStrWithDefault} $PROGRAMEXECUTABLE "$EXEDIR\${NAME}.ini" "${NAME}" "${APPNAME}Executable" "${DEFAULTEXE}"
			${ReadINIStrWithDefault} $ADDITIONALPARAMETERS "$EXEDIR\${NAME}.ini" "${NAME}" "AdditionalParameters" ""
			${ReadINIStrWithDefault} $DISABLESPLASHSCREEN "$EXEDIR\${NAME}.ini" "${NAME}" "DisableSplashScreen" "false"
			Goto EndINI

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

		StrCpy $PROGRAMDIRECTORY "$EXEDIR\App\${DEFAULTAPPDIR}"
		IfFileExists "$PROGRAMDIRECTORY" "" NoProgramEXE
			StrCpy $SETTINGSDIRECTORY "$EXEDIR\Data\${DEFAULTSETTINGSDIR}"
			StrCpy $ISDEFAULTDIRECTORY "true"
			;=== Check GTK directory
			IfFileExists "$PROGRAMDIRECTORY\libgtk-win32*.*" "" GTKSeparate
				StrCpy $GTKDIRECTORY "NONE"
				Goto EndINI

			GTKSeparate:
				IfFileExists "$EXEDIR\App\${DEFAULTGTKDIR}\bin\*.*" "" GTKCommonFiles
					StrCpy $GTKDIRECTORY "$EXEDIR\App\${DEFAULTGTKDIR}"
					Goto EndINI

			GTKCommonFiles:
				${GetParent} $EXEDIR $0
				StrCpy $GTKDIRECTORY "$0\CommonFiles\GTK"
				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

	;CheckIfRunning:
		;=== Check if running
		FindProcDLL::FindProc "inkscape.exe"
		StrCmp $R0 "1" "" DisplaySplash

	;WarnAnotherInstance:
		MessageBox MB_OK|MB_ICONINFORMATION `$(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
		${GetParameters} $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\*.*" GTKDirectory
			CreateDirectory $SETTINGSDIRECTORY
		
	GTKDirectory:
		StrCmp $GTKDIRECTORY "NONE" SetEnvironmentVariables
		IfFileExists "$GTKDIRECTORY\libgtk-win32*.*" "" SetEnvironmentVariables
		System::Call 'Kernel32::SetEnvironmentVariableA(t, t) i("GTK_BASEPATH", "$GTKDIRECTORY").r2'

	;InkscapeLanguage:
		ReadEnvStr $INKSCAPELANGUAGE "PortableApps.comLocaleglibc"
		StrCmp $INKSCAPELANGUAGE "" InkscapeLanguageSettingsFile
		StrCmp $INKSCAPELANGUAGE "en_US" SetInkscapeLanguageVariable
		IfFileExists "$PROGRAMDIRECTORY\locale\$INKSCAPELANGUAGE\*.*" SetInkscapeLanguageVariable
		
	InkscapeLanguageSettingsFile:
		ReadINIStr $INKSCAPELANGUAGE "$SETTINGSDIRECTORY\${NAME}Settings.ini" "Language" "LANG"
		StrCmp $INKSCAPELANGUAGE "" SetEnvironmentVariables
		StrCmp $INKSCAPELANGUAGE "en_US" SetInkscapeLanguageVariable
		IfFileExists "$PROGRAMDIRECTORY\locale\$INKSCAPELANGUAGE\*.*" SetInkscapeLanguageVariable SetEnvironmentVariables
		
	SetInkscapeLanguageVariable:
		System::Call 'Kernel32::SetEnvironmentVariableA(t, t) i("LANG", "$INKSCAPELANGUAGE").r0'

	SetEnvironmentVariables:
		; Stick Inkscape's directory into the path, just to make sure it gets its plugins
		ReadEnvStr $0 "PATH"
		System::Call 'Kernel32::SetEnvironmentVariableA(t, t) i("PATH", "$0;$PROGRAMDIRECTORY").r2'
		System::Call 'Kernel32::SetEnvironmentVariableA(t, t) i("APPDATA", "$SETTINGSDIRECTORY").r2'
		System::Call 'Kernel32::SetEnvironmentVariableA(t, t) i("USERPROFILE", "$SETTINGSDIRECTORY").r2'

		StrCmp $SECONDARYLAUNCH "true" LaunchAndExit

	;AdjustPaths:
		ReadINIStr $LASTDRIVE "$SETTINGSDIRECTORY\${NAME}Settings.ini" "${NAME}Settings" "LastDrive"
		${GetRoot} $EXEDIR $CURRENTDRIVE
		StrCmp $LASTDRIVE $CURRENTDRIVE LaunchNow
		IfFileExists "$SETTINGSDIRECTORY\${APPNAME}\preferences.xml" "" RememberPath
			${ReplaceInFile} "$SETTINGSDIRECTORY\${APPNAME}\preferences.xml" "$LASTDRIVE\" "$CURRENTDRIVE\"
			Delete "$SETTINGSDIRECTORY\${APPNAME}\preferences.xml.old"

	RememberPath:
		WriteINIStr "$SETTINGSDIRECTORY\${NAME}Settings.ini" "${NAME}Settings" "LastDrive" "$CURRENTDRIVE"

	LaunchNow:
		SetOutPath "$EXEDIR\Data"
		ExecWait $EXECSTRING

	CheckRunning:
		Sleep 1000
		FindProcDLL::FindProc "$PROGRAMEXECUTABLE"                  
		StrCmp $R0 "1" CheckRunning
		Goto TheEnd

	LaunchAndExit:
		Exec $EXECSTRING

	TheEnd:
		newadvsplash::stop /WAIT
SectionEnd

It could be a case of the machine I'm on - not Vista and not 64-bit, but still could be the case. I only reported it on your portable version because I personally had never run into it elsewhere and didn't think to check the Inkscape IRC.

For now, it's not really a problem, just wanted to report it.

Thanks