Language Detection From Windows UI Language

Description

Normally, NSIS chooses the default UI language based on the user's current locale settings. Most Windows applications choose their UI language using a different method; this script can be used to make NSIS installers use the same method as other applications.

See this forum thread for more details.

Usage

Function .onInit
  Call SetUILanguage
FunctionEnd
 
Function un.onInit
  Call un.SetUILanguage
FunctionEnd

The Function

!define sysOSVERSIONINFO '(i, i, i, i, i, &t128) i'
!define sysGetVersionEx 'kernel32::GetVersionExA(i) i'
!define sysVER_PLATFORM_WIN32_NT 2
!macro SetUILanguage UN
Function ${UN}SetUILanguage
  Push $R0
  Push $R1
  Push $R2
  ; Call GetUserDefaultUILanguage (available on Windows Me, 2000 and later)
  ; $R0 = GetUserDefaultUILanguage()
  System::Call 'kernel32::GetUserDefaultUILanguage() i.r10'
  StrCmp $R0 "error" OldFashionedWay Finish
OldFashionedWay:
  ; GetUserDefaultUILanguage() doesn't exist, so root in the Registry
  ; First, check the Windows version
  ; $R0 = new OSVERSIONINFO(148, 0, 0, 0, 0, "")
  System::Call '*${sysOSVERSIONINFO}(148,0,0,0,0,"") .r10'
  ; GetVersionEx($R0)
  System::Call '${sysGetVersionEx}(r10)'
  ; $R1 = $R0->dwPlatformId
  System::Call "*$R0(i ., i ., i ., i ., i .r11)"
  ; delete $R0
  System::Free $R0
  IntCmp $R1 ${sysVER_PLATFORM_WIN32_NT} PlatformIsNT
  ; We're running on DOS-based Windows
  StrCpy $R0 "Control Panel\desktop\ResourceLocale"
  StrCpy $R1 ""
  GoTo GetLCIDFromHKCU
PlatformIsNT:
  ; We're running on Windows NT
  StrCpy $R0 ".DEFAULT\Control Panel\International"
  StrCpy $R1 "Locale"
	GoTo GetLCIDFromHKU
GetLCIDFromHKU:
  ReadRegStr $R2 HKU $R0 $R1
  GoTo GetLangIDFromLCID
GetLCIDFromHKCU:
  ReadRegStr $R2 HKCU $R0 $R1
GetLangIDFromLCID:
  StrCpy $R2 "0x$R2"
  IntOp $R0 $R2 & 0xffff
  ; Get just the primary LANGID (NSIS messes it up otherwise)
  IntOp $R0 $R0 & 0x3ff ; remove SUBLANGID
  IntOp $R0 $R0 | 0x400 ; add SUBLANG_DEFAULT
Finish:
  StrCpy $LANGUAGE $R0
  Pop $R2
  Pop $R1
  Pop $R0
FunctionEnd
!macroend
!insertmacro SetUILanguage ""
!insertmacro SetUILanguage "un."