[代码]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.

Technorati 标签: Delphi,GetSystemDefaultLangID,VerLanguageName