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$(External("Kernel32.dll","GetUserDefaultLangID"))=$407

    Print "Deutsch(Germania)"

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

    Print "Englisch(USA)"

Endif

Umstellen
waitinput

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

    Print "Deutsch(Germania)"

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

    Print "Englisch(USA)"

Endif

waitinput
end