Hallo Manuel,
wenn du die ersten 2 Buchstaben des Funktionsergebnisses abgreifst, dann solltest du nach Windows-Konvention die zweistellige Sprachkennung nach ISO 639-1 erhalten.
Delphi-Quellcode:
function AbbrevLangName: String;
var
buffer: array [0..5] of Char;
begin
SetString(Result, buffer,
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SABBREVLANGNAME, @buffer, sizeOf(buffer))
);
end;
Grüße vom marabu