Delphi 获取当前系统语言环境（en，fr，ja等）

本文整理自网络，侵删。

 
uses FMX.Platform{$IFDEF MSWINDOWS}, WinAPi.Windows{$ENDIF};

function GetLang: string;
var
  LocaleService: IFMXLocaleService;
begin
  Result := '';
  if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocaleService)) then
  begin
    Result := LocaleService.GetCurrentLangID;
  end;
end;

Windows 8.1 => zh
Windows 10 => zh
OSX 10.9.5 => ZH
Android 5.1 => jp
Android 4.4.2 => jp
iOS 8.2 => zh
 

相关阅读 >>

Delphi窗体置顶

Delphi过滤字符串头部和尾部得到中间部分

Delphi 常用控件属性

Delphi 遍历硬盘所有文件目录

Delphi base64编码/解码及zlib压缩/解压

Delphi treeview基本用法

Delphi xe6 android 界面皮肤美化 用stylebook

Delphi 上传文件到七牛，纯原生

在Delphi中基于内容检测图片格式（非扩展名）

Delphi 用 gdi+ 给图片添加花边的例子

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取当前系统语言环境（en，fr，ja等）