Delphi XE2 - 在 FireMonkey 中返回系统语言环境

【问题标题】：Delphi XE2 - Return system locale in FireMonkeyDelphi XE2 - 在 FireMonkey 中返回系统语言环境
【发布时间】：2012-06-17 20:03:45
【问题描述】：

我有一个在 Win32 和 MacOSX 上运行的 Delphi XE2 FireMonkey 应用程序。我想返回应用程序正在运行的当前系统区域设置（例如 en_GB），无论是 Win32 还是 MacOSX。是否有一个 FireMonkey 类/属性可以提供这个，可能类似于 TOSVersion？或者其他方式获取它？

【问题讨论】：

标签： delphi locale delphi-xe2 firemonkey

【解决方案1】：

试试TPlatform.GetCurrentLangID 属性

检查此示例

uses
  FMX.Platform;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(Platform.GetCurrentLangID);
end;

【讨论】：

仅供参考，此功能不适用于 XE2...它总是返回 'en'
在 XE4 上按预期工作