Def GetSystemDefaultLangID(0) ! "Kernel32","GetSystemDefaultLangID"
Def VerLanguageName(3) ! "Kernel32","VerLanguageNameA"
Def GetUserDefaultLangID(0) ! "Kernel32","GetUserDefaultLangID"
Déclarer LangID&, UserlangID&,dll&,long#
dll& = Usedll("kernel32.dll")
Faible long#,50
LangID& = GetSystemDefaultLangID(0)
VerLanguageName(langID&,long#,40)
Imprimer string$(long#,0)
Dispose long#
freedll dll&
waitinput