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.
核心函数是API函数:GetSystemDefaultLangID 和 VerLanguageName。
转载于:https://www.cnblogs.com/journeyonmyway/archive/2011/07/13/2105181.html