XProfan

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

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
System-Language or UserLanguage inquire
of Dieter Zornow
Def GetSystemDefaultLangID(0) ! Kernel32,GetSystemDefaultLangID
Def VerLanguageName(3) ! Kernel32,VerLanguageNameA
Def GetUserDefaultLangID(0) ! Kernel32,GetUserDefaultLangID
Declare LangID&, UserlangID&,dll&,long#
dll& = Usedll(kernel32.dll)
Dim long#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,long#,40)
Print string $(long#,0)
Dispose long#
freedll dll&
waitinput