XProfan

cls
Print External("Kernel32.dll","GetUserDefaultLangID")
waitinput
end<

cls
var a&=External("User32.dll","GetKeyboardLayout",0)
print hiword(a&)
print loword(a&)
waitinput
en

cls

If Hex$(Externo("Kernel32.dll","GetUserDefaultLangID"))=$407

    Imprimir "Deutsch(Deutschland)"

Elseif Hex$(Externo("Kernel32.dll","GetUserDefaultLangID"))=$409

    Imprimir "Englisch(USA)"

Endif

Umstellen
waitinput

If Hex$(Externo("Kernel32.dll","GetUserDefaultLangID"))=$407

    Imprimir "Deutsch(Deutschland)"

Elseif Hex$(Externo("Kernel32.dll","GetUserDefaultLangID"))=$409

    Imprimir "Englisch(USA)"

Endif

waitinput
end