[color=green]' benötigte API-Deklaration
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

[color=green]' System-Einstellung ermitteln
Private Function GetSystemLocaleInfo( _
  ByVal LocaleID As Long) As String
 
  Const SYSTEM_DEFAULT As Long = &H800
 
  Dim sReturn As String
  Dim nResult As Long
 
  nResult = GetLocaleInfo(SYSTEM_DEFAULT, LocaleID, _
    sReturn, Len(sReturn))
 
  If nResult Then
    sReturn = Space$(nResult)
    nResult = GetLocaleInfo(SYSTEM_DEFAULT, LocaleID, _
      sReturn, Len(sReturn))
 
    If nResult Then
      GetSystemLocaleInfo = Left$(sReturn, nResult - 1)
    End If
  End If
End Function

Dim sLang As String
Const LOCALE_SLANGUAGE = &H2
 
sLang = GetSystemLocaleInfo(LOCALE_SLANGUGAE)
MsgBox sLang

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de