Delphi实现获取当前系统的语言信息

核心函数是API函数：GetSystemDefaultLangID 和 VerLanguageName。

?

uses Windows;

 

function GetSystemLanguageName: string;

var

  ID: LangID;

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

begin

  // 获取当前系统 Locale

  // 对于简体中文，ID = 2052

  ID := GetSystemDefaultLangID;

 

  // 将 ID 转换为文字

  // 对于简体中文，LanguageName =“中文(中国)”

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

 

  Result := LanguageName;

end;

end.