Delphi如何简单获取Windows系统语言

在编写全球化应用软件时，需要获取操作系统的用户缺省语言来定义界面语言文字，最简单的方法如下：

uses
System.SysUtils, ......

type
TopINI = class(TObject)
Private

Public

//获取本机用户的缺省语言，中文返回cn，其他返回en
class function GetUserLanguage : string;

end;

//获取本机用户的缺省语言，中文返回cn，其他返回en
//语言编码LCID ：2052 - 简体大陆
// 3076 - 繁体香港
// 5124 - 繁体澳门
// 4100 - 简体新加坡
// 1028 - 繁体台湾
class function TopINI.GetUserLanguage : string;
var Langs : TLanguages;
begin
Langs := TLanguages.Create;
try
case Langs.UserDefaultLocale of
2052, 3076, 5124, 4100, 1028 : Result := 'cn';
else Result := 'en';
end;
finally
Langs.Free;
end;
end;