[Delphi] 시스템 디폴트 언어 정보와 로케일 정보 얻기

시스템 디폴트 언어 ID - 한국어 : 1042

GetSystemDefaultLangID

시스템 기본 언어 - 한국어 : KOR

function GetSystemDefaultLang: string;

var

  szLang: array[0..5] of Char;

begin

  Result := '';

  GetLocaleInfo(GetSystemDefaultLCID, LOCALE_SABBREVLANGNAME,

    szLang, SizeOf(szLang) - 1);

  Result := szLang;

end;

 

로케일 얻기 - 한국 : 한국어(대한민국)

function CurrentLocale: string;

var

  ID: LangID;

  LanguageName: array[0..254] of Char;

begin

  {read current system locale}

  ID := GetSystemDefaultLangID;

  {convert an ID into text}

  VerLanguageName(ID, LanguageName, SizeOf(LanguageName));

  Result := LanguageName;

end;