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

Si Hex$(Externe("Kernel32.dll","GetUserDefaultLangID"))=$407

    Imprimer "Deutsch(l'allemagne)"

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

    Imprimer "Englisch(USA)"

Endif

Umstellen
waitinput

Si Hex$(Externe("Kernel32.dll","GetUserDefaultLangID"))=$407

    Imprimer "Deutsch(l'allemagne)"

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

    Imprimer "Englisch(USA)"

Endif

waitinput
end