XProfan

Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID"
Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA"
Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID"
Declare LangID&, UserlangID&,dll&,Lang#
dll& = Usedll("kernel32.dll")
Dim lang#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,lang#,40)
Print string$(lang#,0)
Dispose lang#
freedll dll&
waitinput

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Systemsprache oder Usersprache abfragen
von Dieter Zornow
Def GetSystemDefaultLangID(0) ! Kernel32,GetSystemDefaultLangID
Def VerLanguageName(3) ! Kernel32,VerLanguageNameA
Def GetUserDefaultLangID(0) ! Kernel32,GetUserDefaultLangID
Declare LangID&, UserlangID&,dll&,Lang#
dll& = Usedll(kernel32.dll)
Dim lang#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,lang#,40)
Print string$(lang#,0)
Dispose lang#
freedll dll&
waitinput