Windows System Spache auslesen

[marabu]

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