Hallo,
wer diesen Thread wegens seines Titels findet, der sollte wissen: Da ist ein feiner Unterschied zwischen GetSystemDefaultUILanguage() und GetSystemDefaultLangID(). Letzteres kann vom Administrator geändert werden, ersteres nicht.
Die Sprache ohne den SubLanguage-Zusatz erhält man übrigens so:
Delphi-Quellcode:
// function GetSystemDefaultUILanguage: LANGID; external kernel32 name 'GetSystemDefaultUILanguage';
function NativeLangName(lcid: LCID): string;
var
buffer: array [Byte] of Char;
begin
SetString(Result, buffer, GetLocaleInfo(lcid, LOCALE_SNATIVELANGNAME, buffer, SizeOf(buffer)));
end;
// ShowMessage(NativeLangName(GetSystemDefaultUILanguage));
Freundliche Grüße