如何检测系统是否已经安装了繁体？(50分)

踏

踏雪无痕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #1

如何检测系统是否已经安装了繁体？

 

L

lastgood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #2

function Test:Boolena;
//是香港繁体系统返回true;
var id1,id2:LANGID;
begin
id1:=GetSystemDefaultLang;
id2:=MAKELANGID(LANG_CHINESE,SUBLANG_CHINESE_HONGKONG);
Result:=false;
if id1=id2 then Result:=true;
end;

 

小

小笨苯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #3

lastgood：
GetSystemDefaultLang是什么呀？不是WinAPI呀！是不是你的代码没贴全呀

 

踏

踏雪无痕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #4

To lastgood:
前面还要uses什么?

 

L

lastgood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #5

GetSystemDefaultLang是WinAPI。
详细可参阅Windows API。

 

Y

yujiu2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #6

<<SysUtils.pas>>
首部 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);
end;
///////End Languages
━━━━━━━━━━━━━━━━━━━━━