1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Spring414 2004-09-27
- 打赏
- 举报
多谢！
beyondtkl 2004-09-27
- 打赏
- 举报
UINT uACP;
uACP = GetACP();
switch(uACP)
{
case 936:
iResult = CHINESE_GB;
break;
case 950:
iResult = CHINESE_BIG5;
break;
default:
iResult = ENGLISH;
break;
}
Identifier Meaning
874 Thai
932 Japan
936 Chinese (PRC, Singapore)
949 Korean
950 Chinese (Taiwan Region; Hong Kong SAR, PRC)
1200 Unicode (BMP of ISO 10646)
1250 Windows 3.1 Eastern European
1251 Windows 3.1 Cyrillic
1252 Windows 3.1 Latin 1 (US, Western Europe)
1253 Windows 3.1 Greek
1254 Windows 3.1 Turkish
1255 Hebrew
1256 Arabic
1257 Baltic
uACP = GetACP();
switch(uACP)
{
case 936:
iResult = CHINESE_GB;
break;
case 950:
iResult = CHINESE_BIG5;
break;
default:
iResult = ENGLISH;
break;
}
Identifier Meaning
874 Thai
932 Japan
936 Chinese (PRC, Singapore)
949 Korean
950 Chinese (Taiwan Region; Hong Kong SAR, PRC)
1200 Unicode (BMP of ISO 10646)
1250 Windows 3.1 Eastern European
1251 Windows 3.1 Cyrillic
1252 Windows 3.1 Latin 1 (US, Western Europe)
1253 Windows 3.1 Greek
1254 Windows 3.1 Turkish
1255 Hebrew
1256 Arabic
1257 Baltic
jackie168 2004-09-27
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
begin
case GetSystemDefaultLangID of
$00000404:edit1.Text:='繁體中文';
$00000804:edit1.Text:='簡體中文';
end;
end;
begin
case GetSystemDefaultLangID of
$00000404:edit1.Text:='繁體中文';
$00000804:edit1.Text:='簡體中文';
end;
end;
iLvXX1981 2004-09-26
- 打赏
- 举报
有一个winAPI函数，好像是GetDefaultLan（）吧，记不清了，你自己查一下，返回16进制的值，每个值代表不同的语言，你自己找找，因为我这台机器没有安装MSDN，sorry。
Kevin_Lmx 2004-09-26
- 打赏
- 举报
不懂。 帮你顶
zwb666 2004-09-26
- 打赏
- 举报
ding
