Initial community commit

BuildTools/7-ZipPortable_22.01/App/AppInfo/Launcher/7-ZipPortable.ini

@@ -0,0 +1,56 @@
+[Launch]
+ProgramExecutable=7-Zip\7zFM.exe
+ProgramExecutable64=7-Zip64\7zFM.exe
+DirectoryMoveOK=yes
+SupportsUNC=yes
+
+[Activate]
+Registry=true
+
+[RegistryKeys]
+7zip_portable=HKCU\Software\7-zip
+
+[FileWrite1]
+Type=INI
+File=%PAL:DataDir%\settings\7zip_portable.reg
+Section=HKEY_CURRENT_USER\Software\7-zip
+Key='"Lang"'
+Value='"%PAL:LanguageCustom%"'
+
+[FileWrite2]
+Type=Replace
+File=%PAL:DataDir%\settings\7zip_portable.reg
+Find=%PAL:LastDrive%%PAL:LastPackagePartialDir:DoubleBackslash%\\
+Replace=%PAL:Drive%%PAL:PackagePartialDir:DoubleBackslash%\\
+
+[FileWrite3]
+Type=Replace
+File=%PAL:DataDir%\settings\7zip_portable.reg
+Find=%PAL:LastDrive%%PAL:LastPortableAppsBaseDir:DoubleBackslash%\\
+Replace=%PAL:Drive%%PAL:PortableAppsBaseDir:DoubleBackslash%\\
+
+[FileWrite4]
+Type=Replace
+File=%PAL:DataDir%\settings\7zip_portable.reg
+Find=%PAL:LastDrive%\\
+Replace=%PAL:Drive%\\
+
+[FileWrite5]
+Type=Replace
+File=%PAL:DataDir%\settings\7zip_portable.reg
+Find=%PAL:LastDriveHex%,00,3a,00
+Replace=%PAL:DriveHex%,00,3a,00
+
+[Language]
+Base=%PortableApps.comLanguageCode%
+CheckIfExists=%FullAppDir%\Lang\%PAL:LanguageCustom%.txt
+DefaultIfNotExists=en
+
+[LanguageStrings]
+ar-sa=ar
+
+[LanguageFile]
+Type=ConfigRead
+File=%PAL:DataDir%\settings\7zip_portable.reg
+Entry='"Lang"="'
+TrimRight="

BuildTools/7-ZipPortable_22.01/App/AppInfo/Launcher/Custom.nsh

@@ -0,0 +1,37 @@
+${SegmentFile}
+
+${Segment.OnInit}
+	; Borrowed the following from PAL 2.2, Remove on release of PAL 2.2
+		; Work out if it's 64-bit or 32-bit
+	System::Call kernel32::GetCurrentProcess()i.s
+	System::Call kernel32::IsWow64Process(is,*i.r0)
+	${If} $0 == 0
+		StrCpy $Bits 32
+		Rename "$EXEDIR\App\7-Zip64\Lang" "$EXEDIR\App\7-Zip\Lang"
+	${Else}
+		StrCpy $Bits 64
+		Rename "$EXEDIR\App\7-Zip\Lang" "$EXEDIR\App\7-Zip64\Lang"
+	${EndIf}
+!macroend
+
+${SegmentInit}
+    ${If} $Bits = 64
+        ${SetEnvironmentVariablesPath} FullAppDir "$EXEDIR\App\7-Zip64"
+	${Else}
+        ${SetEnvironmentVariablesPath} FullAppDir "$EXEDIR\App\7-Zip"
+	${EndIf}
+!macroend
+
+${SegmentPre}
+	${Registry::StrToHex} ":" $9 ;$9 now contains the ASCII code for :
+	ExpandEnvStrings $0 "%PAL:Drive%"
+	${Registry::StrToHex} $0 $1 ;$1 now contains the ASCII code for current drive
+	${WordReplace} $1 $9 "" "+" $2
+		
+	ExpandEnvStrings $3 "%PAL:LastDrive%"
+	${Registry::StrToHex} $3 $4 ;$4 now contains the ASCII code for last drive
+	${WordReplace} $4 $9 "" "+" $5
+	
+	System::Call 'Kernel32::SetEnvironmentVariable(t, t) i("PAL:DriveHex", "$2").r0'
+	System::Call 'Kernel32::SetEnvironmentVariable(t, t) i("PAL:LastDriveHex", "$5").r0'
+!macroend