如何获取系统的语言类型？如中文简体，中文繁本，英文等？

Question

如题。

Answer 1

有一个winAPI函数，好像是GetDefaultLan（）吧，记不清了，你自己查一下，返回16进制的值，每个值代表不同的语言，你自己找找，因为我这台机器没有安装MSDN，sorry。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  case GetSystemDefaultLangID of
  $00000404:edit1.Text:='繁體中文';
  $00000804:edit1.Text:='簡體中文';
  end;end;

Answer 3

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