Re: Word/Windows Language

jille <jille@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
I need to be able to determine which version of Word/Windows they are using
(not the Dictionary language): English or French.

This oughta do it:

' Win32 Locale functions
Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA"
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData
As Long) As Long

' Localized name of language
Private Const SORT_DEFAULT As Long = &H0 ' sorting default
Private Const LOCALE_SLANGUAGE = &H2

Public Function LocaleLangauge(Optional LCID As Long) As String
Dim nRet As Long
Dim buf As String

' If user didn't provide an LCID, use
' current system default value.
If LCID = 0 Then
LCID = GetSystemDefaultLangID
End If

' Determine buffer requirement for language.
nRet = GetLocaleInfo(LCID, LOCALE_SLANGUAGE, buf, 0)
buf = Space$(nRet)

' Obtain language description.
Call GetLocaleInfo(LCID, LOCALE_SLANGUAGE, buf, Len(buf))
LocaleLangauge = TrimNull(buf)
End Function

Actually, you'd probably do best just querying for the LCID, and comparing it to
those you're willing/able to work with. See also:

List of Locale ID (LCID) Values as Assigned by Microsoft
http://www.microsoft.com/globaldev/reference/lcid-all.mspx

--
..NET: It's About Trust!
http://vfred.mvps.org


.

Relevant Pages

  • Re: Default Input Language
    ... ' Win32 Locale functions ... Public Function LocaleLangauge(Optional LCID As Long) As String ... Dim buf As String ... ' Determine buffer requirement for language. ...
    (microsoft.public.vb.general.discussion)
  • Re: Internationalizing an app
    ... English although you'd never know it from my posts at times). ... based on the locale where the user is running the software. ... not an LCID and an LPCTSTR. ... Bits 9..0 are the language ID, and bits 15..10 are the sublanguage. ...
    (microsoft.public.vc.mfc)
  • Re: Unable to display korean fonts
    ... In my Japanese build when i set the default language as "Japanese" ... the language of the entire OS was changed to Japan.But we want the Japanese ... Locale only for our appln.Similarly here we want the korean locale for our ... "Henrik Viklund" wrote: ...
    (microsoft.public.windowsce.platbuilder)
  • Re: loadstring fails in MBCS encoding
    ... Did you try to force the locale (language) with setlocale? ... > can't load MBCS resources correctly any more. ...
    (microsoft.public.vc.mfc)
  • Re: Somebody must know this
    ... > What language is this and what LCID are you using? ... Jeg beskyttes af den gratis SPAMfighter til privatbrugere. ...
    (microsoft.public.sqlserver.fulltext)