Delphi 关于多语言：如何获取当前系统语言

本文整理自网络，侵删。

 
uses FMX.Platform;

 

function TForm2.GetCurrentLan: string;
var
  LocServ: IFMXLocaleService;
begin
  //读取当前语言，测试通过。
  if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then
    Result := LocServ.GetCurrentLangID;

end;

以上代码，Windows 和 Android 底下测试通过。iOS 想来也不会有问题。

参考： Language on iOS/Android
――――――――――――――――

原文链接：https://blog.csdn.net/pcplayer/article/details/79578258
 

相关阅读 >>

Delphi tgifimage：timage显示gif动画

Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己

Delphi 使电脑睡眠代码

Delphi 获取网站验证码的图片

Delphi copy 从字符串中复制指定范围中的字符

Delphi webbrowser 加载html成web

Delphi 基础计算两数之合

Delphi idhttp post 提交 json

Delphi 秒计算分钟、小时函数

Delphi 让嵌入窗体的 webbrowser 控件无边框

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

转载请注明出处：木庄网络博客 » Delphi 关于多语言：如何获取当前系统语言