blob: 0dd31d5612b61d6aa1d9adb3b6c4c635c77c7e8a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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
|
