Taal van OS terugvinden

[Verwijderd]

Ik moet voor een kleine applicatie eerst een controle van de taal van het besturingssysteem uitvoeren, zou mij iemand kunnen zeggen waar ik deze taal terug kan vinden?

In de registers? Is het bij elke windows versie hetzelfde? of moet ik ook eerst een OS controle doen?

[Janoz]

In principe hoort daar gewoon een API call voor te zijn. Het lijkt me niet dat je hiervoor zelf in het register moet gaan zitten wroeten, daarmee omzeil je het hele nut van zo'n API . De bijbehorende call zal vast wel eergens in msdn te vinden zijn.

[RobIII]

API: GetLocaleInfo als ik me niet vergis

_{Disclaimer: *uit blote bolleke info*}

[edit]
Jawohl

Visual Basic:

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: http://www.allapi.net/
    'E-Mail: [e-mail]
    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

(C) AllApi.net

[ Voor 109% gewijzigd door RobIII op 10-10-2003 11:45 ]