Hallo,
ich habe die Lösung, hier ist der Code:
Private Declare Function GetSystemDefaultLangID Lib "kernel32.dll" () As Integer
Private Declare Function VerLanguageName Lib "kernel32.dll" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long
Public ToolbarName As String
Public ViewAddress As String
Public WriteAddress As String
Public AddressDelete As String
Public AddressWrite1 As String
Public AddressWrite2 As String
Public AddressTable As String
Public OpenAddressTable As String
Function ViewLanguade()
' Wir ermitteln die Systemsprache
Languade = GetSystemLanguage
Languade = Left(Languade, 3)
Select Case Languade
Case "Deu"
Germany
Case "Eng"
English
Case Else
English
End Select
End Function
Private Function GetSystemLanguage() As String
Dim strLanguage As String, intLangID As Integer, n As Long
strLanguage = Space$(64)
intLangID = GetSystemDefaultLangID ' intLangID holds the language ID.
n = VerLanguageName(intLangID, strLanguage, Len(strLanguage))
GetSystemLanguage = Left$(strLanguage, n)
End Function
[/PHP]
Gruß Patrick