[代码]Delphi实现获取当前系统的语言信息

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.