如何在delphi中判断操作系统所用的语言，我只有这么多了分请帮一下好吗？(19分)

网

网络精灵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #1

请问：如何在delphi中判断操作系统所用的语言，比如说时简体中文，繁体中文，日文等等。谢谢

 

网

网络精灵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #2

没人原帮忙吗难道都要分吗，也太让失望了

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #3

提供你一点点参考,希望对你有用:
获取windows是英文系统还是中文系统:
var
LangID: Integer;
begin
LangID:=GetSystemDefaultLangID;
//ShowMessage(Languages.NameFromLocaleID[LangID]);
if LangID = ((SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE) then
ShowMessage('简体中文')
else if LangID = ((SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH) then
ShowMessage('美国英语')
end;

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #4

看看 SysUtils.pas 中的 SysLocale

 

H

hyh_china

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #5

var
DefaultID:integer;
begin
DefaultID:=GetSystemDefaultLangID;
if (DefaultID = 1028) then
begin
繁体中文
end
else if (DefaultID = 2052) then
begin
简体中文
end
else
begin
其它语言
end;
你只要知道该语言对应的码号就可以了。

 

P

pingshx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #6

getacp

 

P

pingshx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #7

是这个函数，看看帮助！

 

网

网络精灵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-28

• #8

谢了

 

网

网络精灵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #9

aa

 

A

afan2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-13

• #10

用GetCP
然后会得到一个CodePage
msdn.microsoft.com上有一张很大的表，哪里我忘了。根据这个表就可以查到语言。
比如
cp:=GetCP;
Case cp of
936: ... ;//是简体中文
950: ... ; //
end;

 

网

网络精灵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-24

• #11

多人接受答案了。