文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 265
阅读 1
收藏 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
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
[M0]VoiceCommand相关修改

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

ShawnXia
2016/08/05
6
0
MetInfo V6.0最新发布,实现建站CMS的前端可视化编辑!

MetInfo企业建站系统 软件版本:V 6.0.0 发布日期:2018-1-29 官方网站:https://www.metinfo.cn/ 交流平台:https://forum.metinfo.cn/ 下载地址:https://www.metinfo.cn/download/ 老版本...

湘中鳄
02/01
0
0
Android应用资源---本地化(Localization)(三)

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

长平狐
2012/10/16
390
0
iText 新年新版:截图识别文字后,翻译为 100+ 种语言

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

01/02
0
0
蓝科企业信息发布系统 - 蓝科 CMS 系统

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

朱君
2014/02/09
0
10

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周三乱弹 —— 有一天考拉麻麻拉肚子了

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @瘟神灬念 :分享周汇洋的单曲《Man Srae(曼斯拉之舞)》:美滋滋。。。。 手机党少年们想听歌,请使劲儿戳(这里) 我听了一下 赶紧关了, ...

小小编辑
今天
44
5
oh-my-zsh 自定义

GitHub 地址 基于 oh-my-zsh 的自定义配置,增加了一些个人常用插件与皮肤。 采用的是 git submodule 来维护,包括 oh-my-zsh,之所以这么搞,主要是手头有多台 linux 需要维护, 每台机器、...

郁也风
今天
6
0
Docker安装踩坑:E_FAIL 0x80004005的解决

参考 菜鸟教程--Windows Docker 安装 http://www.runoob.com/docker/windows-docker-install.html 官方文档-Install Docker Toolbox on Windows https://docs.docker.com/toolbox/toolbox_in......

karma123
今天
6
0
js垃圾回收机制和引起内存泄漏的操作

JS的垃圾回收机制了解吗? Js具有自动垃圾回收机制。垃圾收集器会按照固定的时间间隔周期性的执行。 JS中最常见的垃圾回收方式是标记清除。 工作原理:是当变量进入环境时,将这个变量标记为“...

Jack088
昨天
18
0
大数据教程(10.1)倒排索引建立

前面博主介绍了sql中join功能的大数据实现,本节将继续为小伙伴们分享倒排索引的建立。 一、需求 在很多项目中,我们需要对我们的文档建立索引(如:论坛帖子);我们需要记录某个词在各个文...

em_aaron
昨天
27
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部