文档章节

系统默认语言与系统支持的语言列表

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 265
阅读 1
收藏 0
点赞 0
评论 0

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//获取系统支持的语言列表
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  for i := 0 to Languages.Count - 1 do
    Memo1.Lines.Add(Format('%d: %s', [i, Languages.Name[i]]));
end;

//获取系统支持语言的 Ext 列表
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  for i := 0 to Languages.Count - 1 do
    Memo1.Lines.Add(Languages.Ext[i] + #9 + Languages.Name[i]);
end;

//系统默认的语言 ID 和在语言列表中的排序
procedure TForm1.Button3Click(Sender: TObject);
var
  LangID: Word;
  N: Integer;
begin
  LangID := GetUserDefaultLangID;
  N := Languages.IndexOf(LangID);
  ShowMessageFmt('当前语言ID: %d; 在列表中的排序: %d', [LangID, N]);
  {当前语言ID: 2052; 在列表中67的排序: %d}
end;

//其他
procedure TForm1.Button4Click(Sender: TObject);
var
  s: string;
begin
  ShowMessage(Languages.ID[67]);                  //$00000804
  ShowMessage(IntToStr(Languages.LocaleID[67]));  //2052

  ShowMessage(Languages.NameFromLCID['2052']);    //中文(中国)
  ShowMessage(Languages.NameFromLocaleID[2052]);  //中文(中国)

  ShowMessage(GetUILanguages(2052)); // zh-CN,zh-Hans,zh
  ShowMessage(PreferredUILanguages); // ZH-CN,ZH-HANS,ZH

  for s in PreferredUILanguageList do ShowMessage(s); //ZH-CN ...
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/11/02/1594416.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
[M0]VoiceCommand相关修改

一、修改默认语言 VoiceCommand有自己的 将 vendor/mediatek/proprietary/packages/apps/VoiceCommand/res/xml/voicelanguage.xml DefaultLanguage 的 ID 修改为上面列出来的 ID 值。 默认只......

ShawnXia ⋅ 2016/08/05 ⋅ 0

路过秋天版博客 V2.0 测试版发布 公测一周[支持多语言、多用户、多数据库、目录级URL]

路过秋天版博客发布历史回顾: 1:2010年11月08日---支持多语言、多用户、多数据库、目录级URL之路过秋天版博客发布[绝对有杀伤力的博客] 2:2010年11月10日---基础却容易被忽略的那点事--w...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

Android应用资源---本地化(Localization)(三)

测试本地化应用程序 在设备上测试 要记住,你所使用的测试设备可能与其他地区消费者使用的设备有明显的不同。测试设备上的语言环境与其他设备存在差异,还有设备屏幕的分辨率和密度也可能不同...

长平狐 ⋅ 2012/10/16 ⋅ 0

iText 新年新版:截图识别文字后,翻译为 100+ 种语言

iText 是一款从图片中识别文字的工具,解决了诸如扫描版 PDF 无法复制等问题。在保持简洁的同时,我也在不断 改进 iText 的功能和便利性。新年第一版,来看看有哪些变化吧。 识别文字后自动翻...

⋅ 01/02 ⋅ 0

蓝科企业信息发布系统 - 蓝科 CMS 系统

特点:SEO,伪静态切换,多语言支持 小麦CMS前台功能: 展示模块:幻灯片展示图、多级导航条 内容模块:文章、下载、招聘、留言、反馈、图片 订单模块:购物车,订单下单,订单管理 小麦CMS...

朱君 ⋅ 2014/02/09 ⋅ 10

说说在 Java 中如何国际化信息

对于有国际化要求的应用系统,通俗地说,就是多语言版本的软件啦,我们要为每一种语言提供一套相应的资源文件,并按照规范化的命名方式保存在规定的目录中,然后由系统根据客户端的选择,来选...

deniro ⋅ 05/25 ⋅ 0

Go语言的速度只有C语言的五分之一

有人用多种系统级语言编写了同样的地图生成工具来测试它们的性能,包括D(DMD,LDC,GDC)、Go(GCC-Go,6g)、Haskell(GHC)和Rust。>>>查看Github项目列表 注:LDC、Rust使用的是LLVM版本...

Foou ⋅ 2013/08/02 ⋅ 20

MetInfo v5.2.3 更新简报(2014年2月28日发布更新)

修复了360浏览器。录入授权后,由于缓存问题,无法显示授权信息问题。 修复了4.0以前版本升级,语言图标无法显示问题。 修复了部分模板留言页面乱码问题。 添加了应用升级提醒功能。 调整了s...

MetInfo ⋅ 2014/03/27 ⋅ 0

iOS开发之国际化

前言 语言本地化,又叫做语言国际化。是指根据用户操作系统的语言设置,自动将应用程序的语言设置为和用户操作系统语言一致的语言。往往一些应用程序需要提供给多个国家的人群使用,或者一个...

ziyuzhiye ⋅ 2017/12/21 ⋅ 0

linux系统如何更改字符集的支持,解决Linux中文显示乱码使centos显示中文

linux系统如何更改字符集的支持 怎么设置Linux系统中文语言,这是很多小伙伴在开始使用Linux的时候,都会遇到一个问题,就是终端输入命令回显的时候中文显示乱码。出现这个情况一般是由于没有...

挚爱linux ⋅ 2017/07/11 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

win10怎么彻底关闭自动更新

win10自带的更新每天都很多,每一次下载都要占用大量网络,而且安装要等得时间也蛮久的。 工具/原料 Win10 方法/步骤 单击左下角开始菜单点击设置图标进入设置界面 在设置窗口中输入“服务”...

阿K1225 ⋅ 今天 ⋅ 0

Elasticsearch 6.3.0 SQL功能使用案例分享

The best elasticsearch highlevel java rest api-----bboss Elasticsearch 6.3.0 官方新推出的SQL检索插件非常不错,本文一个实际案例来介绍其使用方法。 1.代码中的sql检索 @Testpu...

bboss ⋅ 今天 ⋅ 0

informix数据库在linux中的安装以及用java/c/c++访问

一、安装前准备 安装JDK(略) 到IBM官网上下载informix软件:iif.12.10.FC9DE.linux-x86_64.tar放在某个大家都可以访问的目录比如:/mypkg,并解压到该目录下。 我也放到了百度云和天翼云上...

wangxuwei ⋅ 今天 ⋅ 0

PHP语言系统ZBLOG或许无法重现月光博客的闪耀历史[图]

最近在写博客,希望通过自己努力打造一个优秀的教育类主题博客,名动江湖,但是问题来了,现在写博客还有前途吗?面对强大的自媒体站点围剿,还有信心和可能型吗? 至于程序部分,我选择了P...

原创小博客 ⋅ 今天 ⋅ 0

IntelliJ IDEA 2018.1新特性

工欲善其事必先利其器,如果有一款IDE可以让你更高效地专注于开发以及源码阅读,为什么不试一试? 本文转载自:netty技术内幕 3月27日,jetbrains正式发布期待已久的IntelliJ IDEA 2018.1,再...

Romane ⋅ 今天 ⋅ 0

浅谈设计模式之工厂模式

工厂模式(Factory Pattern)是 Java 中最常用的设计模式之一。这种类型的设计模式属于创建型模式,它提供了一种创建对象的最佳方式。 在工厂模式中,我们在创建对象时不会对客户端暴露创建逻...

佛系程序猿灬 ⋅ 今天 ⋅ 0

Dockerfile基础命令总结

FROM 指定使用的基础base image FROM scratch # 制作base image ,不使用任何基础imageFROM centos # 使用base imageFROM ubuntu:14.04 尽量使用官方的base image,为了安全 LABEL 描述作...

ExtreU ⋅ 昨天 ⋅ 0

存储,对比私有云和公有云的不同

导读 说起公共存储,很难不与后网络公司时代的选择性外包联系起来,但尽管如此,它还是具备着简单和固有的可用性。公共存储的名字听起来也缺乏专有性,很像是把东西直接堆放在那里而不会得到...

问题终结者 ⋅ 昨天 ⋅ 0

C++难点解析之const修饰符

C++难点解析之const修饰符 c++ 相比于其他编程语言,可能是最为难掌握,概念最为复杂的。结合自己平时的C++使用经验,这里将会列举出一些常见的难点并给出相应的解释。 const修饰符 const在c...

jackie8tao ⋅ 昨天 ⋅ 0

聊聊spring cloud netflix的HystrixCommands

序 本文主要研究一下spring cloud netflix的HystrixCommands。 maven <dependency> <groupId>org.springframework.cloud</groupId> <artifactId>spring-clo......

go4it ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部