Getting Language

[nahlous]

Hello,

I want to get the system Language that the user chooses.
I mean by system Language, the language that the user select from the right part of the taskbar, next to the clock.
I inserted the GetSystemDefaultLangID, and GetUserDefaultLangID from the APIViewer.
I am calling them, but the result is not changing while changing the language.
When I change the regional settings from the control panel, the Language ID I am getting from the GetUserDefaultLangID function is changing, but unfortunately it’s not the case I want.
So what do you think I must do to fix my problem??
Thanks for your help.

[darre1]

check this out:

Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SENGCOUNTRY = &H1002 '  English name of country
Const LOCALE_SENGLANGUAGE = &H1001  '  English name of language
Const LOCALE_SNATIVELANGNAME = &H4  '  native name of language
Const LOCALE_SNATIVECTRYNAME = &H8  '  native name of country
 
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
 
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    MsgBox "You live in " & GetInfo(LOCALE_SENGCOUNTRY) & " (" & GetInfo(LOCALE_SNATIVECTRYNAME) & ")," & vbCrLf & "and you speak " & GetInfo(LOCALE_SENGLANGUAGE) & " (" & GetInfo(LOCALE_SNATIVELANGNAME) & ").", vbInformation
End Sub
 
Public Function GetInfo(ByVal lInfo As Long) As String
    Dim Buffer As String, Ret As String
    Buffer = String$(256, 0)
    Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
    If Ret > 0 Then
        GetInfo = Left$(Buffer, Ret - 1)
    Else
        GetInfo = ""
    End If
End Function

[nahlous]

Thanks for your help, but this fuction too is getting it's Source from the Regional Setting in the Control Pannel.
I want to get the infotmations from the Language choosen in the taskbar.
So, please if you have any new idea, just let me know.

[Pc_Madness]

Where can u find your language in the taskbar???

[darre1]

what OS are you using???

[nahlous]

Hello, once again.
First I am using the win 98 as my Operating system.
my application is coded under Visual Basic 6.0.

Second, in the multi Language Operating Systems, choosing LAnguages, can be find in the Taskbar, at the right next to the volume control and the time.

[Red Rush-In]

Originally posted by Pc_Madness
Where can u find your language in the taskbar???

Here is what he is talking about. (see the image below)


If you have multiple languages set for Windows, it will add an app to your system tray to allow you to togle between languages that you use.
In XP they moved it from the system tray to the taskbar.

I played with all the local based APIs that I could find. Unfortunately they all return the default language.
I guess Microsofts thinking is that your program should only respond to the users default language.
If this is the case, then the only use of being able to togle languages is for changing the keyboard layout/characters and for accessing web pages.

Nahlous, do you know of any programs that respond to the languge that you have selected?

Hmm, wait a second isn't IE able to do this?
I know the browser sends info to sites regarding you currently selected language. I've done this to test a multilanguage site that I was developing......
But I could be mistaken, meaning I may have had to actually change the default language.

[Pc_Madness]

Aah.