Keyboardlayout auslesen?

[The_Unknown]

OK, sowas überliest man dann mal

Ich habe jetzt mal den Test gemacht mit folgendem Code:
showmessage(inttostr(GetKeyboardLayout(0) div 65536)); Dieser liefert als Ergebnis für Deutsch (Deutschland, Österreich, Liechtenstein, Luxemburg) 1031, für Deutsch (Schweiz) 2055 und für Englisch (USA) 1033.

Nun stellt sich mir die Frage, ob das ganze so stimmen kann. Wieso hat die Schweiz einen anderen Code als die anderen deutschsprachigen Länder?

[Luckie]

Weil die Schweizer zum Beispiel kein "ß" auf der Tastatur haben, weil es das bei denen nicht gibt.