1

核心的两个API函数:GetSystemDefaultLangIDVerLanguageName

GetSystemDefaultLangID:获得系统默认语言的ID

VerLanguageName: 通过语言的ID转换为语言的名称 , 根据16位语言代码获取一种语言的名称

uses Windows;
function GetSystemLanguageName: string;
var
ID: LangID;
LanguageName: array[0..255] of Char;
begin
// 获取当前系统 Locale
// 对于简体中文,ID = 2052
ID := GetSystemDefaultLangID;
// 将 ID 转换为文字
// 对于简体中文,LanguageName =“中文(中国)”
VerLanguageName(ID, LanguageName, SizeOf(LanguageName));
Result := LanguageName;
end;

2

还可以通过获得系统本地信息来获取语言环境参数 GetLocaleInfo

Windows API函数GetLocaleInfo 用来获得系统信息,比如系统语言, 货币符号等代码如下:

function TForm1.GetLocaleInformation(Flag: Integer): String;
var
pcLCA: Array[0..20] of Char;
begin
if( GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,Flag,pcLCA,19) <= 0 ) then
begin
pcLCA[0] := #0;
end;
Result := pcLCA;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));
end;

参数"Flag"可以取下列值:

LOCALE_NOUSEROVERRIDE { do not use user overrides }

LOCALE_USE_CP_ACP { use the system ACP }

LOCALE_ILANGUAGE { 语言代号 }

LOCALE_SLANGUAGE { 本地语言名称 }

LOCALE_SENGLANGUAGE { 语言的英语名 }

LOCALE_SABBREVLANGNAME { 语言名称缩写 } 简体:CHS 繁体: CHT

LOCALE_SNATIVELANGNAME { 本地语言名称 }

LOCALE_ICOUNTRY { 国家代号 }

LOCALE_SCOUNTRY { 国家名 }

LOCALE_SENGCOUNTRY { 国家的英语名称 }

LOCALE_SABBREVCTRYNAME { 国家名缩写 }

LOCALE_SNATIVECTRYNAME { 国家名 }

LOCALE_IDEFAULTLANGUAGE { 缺省语言代号 }

LOCALE_IDEFAULTCOUNTRY { 缺省国家代码 }

LOCALE_IDEFAULTCODEPAGE { 缺省oem代码页 }

LOCALE_IDEFAULTANSICODEPAGE { 缺省ansi代码页 }

LOCALE_IDEFAULTMACCODEPAGE { 缺省mac页 }

LOCALE_SLIST { 列表项分割符 }

LOCALE_IMEASURE { 测量单位0 = 米制, 1 = 英制 }

LOCALE_SDECIMAL { 小数点符号 }

LOCALE_STHOUSAND { 千位分割符 }

LOCALE_SGROUPING { digit grouping }

LOCALE_IDIGITS { number of fractional digits }

LOCALE_ILZERO { leading zeros for decimal }

LOCALE_INEGNUMBER { 负数模式 }

LOCALE_SNATIVEDIGITS { native ascii 0-9 }

LOCALE_SCURRENCY { 本地货币符号 }

LOCALE_SINTLSYMBOL { 国际货币符号 }

LOCALE_SMONDECIMALSEP { 货币小数点分割符 }

LOCALE_SMONTHOUSANDSEP { 货币千位分割符 }

LOCALE_SMONGROUPING { monetary grouping }

LOCALE_ICURRDIGITS { # local monetary digits }

LOCALE_IINTLCURRDIGITS { # intl monetary digits }

LOCALE_ICURRENCY { positive currency mode }

LOCALE_INEGCURR { negative currency mode }

LOCALE_SDATE { 日期分割符 }

LOCALE_STIME { 时间分割符 }

LOCALE_SSHORTDATE { 短日期字符串 }

LOCALE_SLONGDATE { 长日期字符串 }

LOCALE_STIMEFORMAT { time format string }

LOCALE_IDATE { short date format ordering }

LOCALE_ILDATE { long date format ordering }

LOCALE_ITIME { time format specifier }

LOCALE_ITIMEMARKPOSN { time marker position }

LOCALE_ICENTURY { century format specifier (short date) }

LOCALE_ITLZERO { leading zeros in time field }

LOCALE_IDAYLZERO { leading zeros in day field (short date) }

LOCALE_IMONLZERO { leading zeros in month field (short date) }

LOCALE_S1159 { AM designator }

LOCALE_S2359 { PM designator }

LOCALE_ICALENDARTYPE { type of calendar specifier }

LOCALE_IOPTIONALCALENDAR { additional calendar types specifier }

LOCALE_IFIRSTDAYOFWEEK { first day of week specifier }

LOCALE_IFIRSTWEEKOFYEAR { first week of year specifier }

LOCALE_SDAYNAME1 { long name for Monday }

LOCALE_SDAYNAME2 { long name for Tuesday }

LOCALE_SDAYNAME3 { long name for Wednesday }

LOCALE_SDAYNAME4 { long name for Thursday }

LOCALE_SDAYNAME5 { long name for Friday }

LOCALE_SDAYNAME6 { long name for Saturday }

LOCALE_SDAYNAME7 { long name for Sunday }

LOCALE_SABBREVDAYNAME1 { 星期一的缩写 }

LOCALE_SABBREVDAYNAME2 { 星期二的缩写 }

LOCALE_SABBREVDAYNAME3 { 星期三的缩写 }

LOCALE_SABBREVDAYNAME4 { 星期四的缩写 }

LOCALE_SABBREVDAYNAME5 { 星期五的缩写 }

LOCALE_SABBREVDAYNAME6 { 星期六的缩写 }

LOCALE_SABBREVDAYNAME7 { 星期天的缩写 }

LOCALE_SMONTHNAME1 { long name for January }

LOCALE_SMONTHNAME2 { long name for February }

LOCALE_SMONTHNAME3 { long name for March }

LOCALE_SMONTHNAME4 { long name for April }

LOCALE_SMONTHNAME5 { long name for May }

LOCALE_SMONTHNAME6 { long name for June }

LOCALE_SMONTHNAME7 { long name for July }

LOCALE_SMONTHNAME8 { long name for August }

LOCALE_SMONTHNAME9 { long name for September }

LOCALE_SMONTHNAME10 { long name for October }

LOCALE_SMONTHNAME11 { long name for November }

LOCALE_SMONTHNAME12 { long name for December }

LOCALE_SMONTHNAME13 { long name for 13th month (if exists) }

LOCALE_SABBREVMONTHNAME1 { 一月的缩写 }

LOCALE_SABBREVMONTHNAME2 { 二月的缩写 }

LOCALE_SABBREVMONTHNAME3 { 三月的缩写 }

LOCALE_SABBREVMONTHNAME4 { 四月的缩写 }

LOCALE_SABBREVMONTHNAME5 { 五月的缩写 }

LOCALE_SABBREVMONTHNAME6 { 六月的缩写 }

LOCALE_SABBREVMONTHNAME7 { 七月的缩写 }

LOCALE_SABBREVMONTHNAME8 { 八月的缩写 }

LOCALE_SABBREVMONTHNAME9 { 九月的缩写 }

LOCALE_SABBREVMONTHNAME10 { 十月的缩写 }

LOCALE_SABBREVMONTHNAME11 { 十一月的缩写 }

LOCALE_SABBREVMONTHNAME12 { 十二月的缩写 }

LOCALE_SABBREVMONTHNAME13 { 十三月的缩写(如果有的话) }

LOCALE_SPOSITIVESIGN { 正号 }

LOCALE_SNEGATIVESIGN { 负号 }

LOCALE_IPOSSIGNPOSN { 正号位置 }

LOCALE_INEGSIGNPOSN { 负号位置 }

LOCALE_IPOSSYMPRECEDES { mon sym precedes pos amt }

LOCALE_IPOSSEPBYSPACE { mon sym sep by space from pos amt }

LOCALE_INEGSYMPRECEDES { mon sym precedes neg amt }

LOCALE_INEGSEPBYSPACE { mon sym sep by space from neg amt }

LOCALE_FONTSIGNATURE { font signature }

LOCALE_SISO639LANGNAME { ISO 缩写语言名称 }

LOCALE_SISO3166CTRYNAME { ISO 缩写国家名称 }

来源:https://www.cnblogs.com/guorongtao/p/11969774.html

最新修改时间于 2019.12.02

Delphi 获取系统的语言环境参数GetSystemDefaultLangID、VerLanguageName、GetLocaleInfo的更多相关文章

  1. Delphi 获取系统当前进程、窗口句柄、文件属性以及程序运行状态

    uses TLHelp32,PsAPI;(1)显示进程列表: procedure TForm1.Button2Click(Sender: TObject); var lppe: TProcessEnt ...

  2. Delphi 获取系统时间后格式化输出

    问题:客户现场程序运行提示时间格式不对导致的错误,原因是与开发环境及公司内部测试环境的日期格式不一致: 解决:统一强制转换: //引用单元:SysUtils //目的:实现跨环境兼容不同日期格式,如果 ...

  3. delphi 获取系统注册的文件图标

    var Icon:TICON; Key : string; App : string; Index : Integer; begin FileName:=Edit6.Text; then begin ...

  4. XE3随笔21:系统默认语言与系统支持的语言列表

    unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For ...

  5. Delphi编程获取系统当前进程、窗口句柄、文件属性以(转)

    Delphi编程获取系统当前进程.窗口句柄.文件属性以及程序运行状态. uses TLHelp32,PsAPI; (1)显示进程列表:procedure TForm1.Button2Click(Sen ...

  6. 用Delphi获取当前系统时间

    在开发应用程序时往往需要获取当前系统时间.尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题. 在<融会贯通--Delphi4.0实战技巧>(以下简称“该书” ...

  7. Linux C 语言 获取系统时间信息

    比如获取当前年份:        /* 获取当前系统时间 暂时不使用        int iyear = 0;        int sysyear = 0;        time_t now;  ...

  8. Delphi获取当前系统时间(使用API函数GetSystemTime)

    在开发应用程序时往往需要获取当前系统时间.尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题. 在<融会贯通--Delphi4.0实战技巧>(以下简称“该书” ...

  9. C语言 获取系统时间与睡眠时间函数

    摘要: 以ms为单位,获取系统时间.睡眠或延迟时间函数的使用方法. #include<stdio.h> #include <time.h> #include <sys/t ...

随机推荐

  1. 英语单词SYNOPSIS

    SYNOPSIS 来源——man帮助内容 BASH() General Commands Manual BASH() NAME bash - GNU Bourne-Again SHell SYNOPS ...

  2. php str_pad()函数 语法

    php str_pad()函数 语法 str_pad()函数怎么用? php str_pad()函数用于把字符串填充到指定长度,语法是str_pad(string,length,pad_string, ...

  3. linux0.11内核源码——进程各状态切换的跟踪

    准备工作 1.进程的状态有五种:新建(N),就绪或等待(J),睡眠或阻塞(W),运行(R),退出(E),其实还有个僵尸进程,这里先忽略 2.编写一个样本程序process.c,里面实现了一个函数 /* ...

  4. 企业资源计划(ERP)

    ERP(企业资源计划)一般指企业资源计划(ERP) 物资资源管理(物流).人力资源管理(人流).财务资源管理(财流).信息资源管理(信息流) 信息技术在企业管理学上的应用可分做如下发展阶段:A. MI ...

  5. Java学习之多线程(线程安全问题及线程同步)

    一.线程安全问题产生前提:1.多线程操作共享数据2.线程任务中有多条代码 class Ticket implements Runnable { //2.共享数据 private int num = 1 ...

  6. python中列表元素连接方法join用法实例

    python中列表元素连接方法join用法实例 这篇文章主要介绍了python中列表元素连接方法join用法,实例分析了Python中join方法的使用技巧,非常具有实用价值,分享给大家供大家参考. ...

  7. [CF895E] Eyes Closed(线段树,期望)

    Desctiption 传送门:Portal 大致题意: 给你一个序列, 支持两种操作: 1 l1 r1 l2 y2 在\([l1, r1]\)随机选择一个数a, \([l2, r2]\) 内随机选择 ...

  8. Debian 防火墙 打开 关闭

    Debian原来用的是UFW防火墙,之前没接触过这种类型防火墙,懵逼了半天,这里记录一下简单的使用规则,后期在使用过程中慢慢完善UFW防火墙的使用操作方法: 查看防火墙现有规则: ufw status ...

  9. ajax跨域请求,状态码200,F12控制台报错

    在接口的地方加上请求头.//跨域请求header('Access-Control-Allow-Origin:*'); 不要在ajax里面加!!!!!!!!!

  10. shell选项和参数