怎么判断当前操作系统的语言

yingxj 2003-10-16 03:47:14
如果软件支持简体、繁体和因为三种语言界面,怎么在运行时判断当前windows是什么语言?
...全文
136 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
yingxj 2003-10-17
  • 打赏
  • 举报
回复
非常感谢 WWWWA(aaaa)

结了:)
hmily1688 2003-10-16
  • 打赏
  • 举报
回复
WWWWA(aaaa) 厉害厉害,佩服佩服.
ideacao 2003-10-16
  • 打赏
  • 举报
回复
up
cnhgj 2003-10-16
  • 打赏
  • 举报
回复
学习
Storm2008 2003-10-16
  • 打赏
  • 举报
回复
up
dickeybird888 2003-10-16
  • 打赏
  • 举报
回复
WWWWA(aaaa) 好厉害啊!
(·¥·)
47522341 2003-10-16
  • 打赏
  • 举报
回复
顶楼的兄弟说的函数是显示该系统支持的所有语言种类;

WWWWA(aaaa) 的才是楼主要的;
tonyzhengjq 2003-10-16
  • 打赏
  • 举报
回复
好好学习!天天向上!
WWWWA 2003-10-16
  • 打赏
  • 举报
回复
Const
ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;
CHINESE = (SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE;
TCHINESE =(SUBLANG_CHINESE_TRADITIONAL SHL 10) OR LANG_CHINESE;
Begin
If SysLocale.DefaultLCID=CHINESE then
ShowMessage('中文简体')
Else
If SysLocale.DefaultLCID=TCHINESE then
ShowMessage('中文繁体')
Else
If SysLocale.DefaultLCID=English then
ShowMessage('英文版');
End;
hmzgz81 2003-10-16
  • 打赏
  • 举报
回复

首部 function Languages: TLanguages; $[SysUtils.pas
功能 返回系统语言对象
说明 通过此函数可以得到系统的语言环境
参考 type SysUtils.TLanguages
例子
///////Begin Languages
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Memo1.Clear;
for I := 0 to Languages.Count - 1 do
Memo1.Lines.Add(Languages.Name[I]);
end;
///////End Languages

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧