function DetectDoubleBytes: Boolean; //我用的一个函数,你自己改改 //可以测试日文、韩文,简体中文,繁体中文和泰文 var LangID: integer; begin {Detect current os support double bytes or not} Result := False; try LangID := GetACP; if LangID = 936 then Result := True //Simplified Chinese else if LangID = 950 then Result := True //Traditional Chinsee else if LangID = 932 then Result := True //Japanese else if LangID = 949 then Result := True //Korean else if LangID = 874 then Result := True; //Thai except end; end;
可以通过TRegistry读取注册表来获取当前系统语言信息。具体注册表位置是:Key: HKEY_LOCAL_MACHINEItem: (默认)Value: 00000804 表示Chinese(PRC),说明是中文Win9500000409 表示美国英语,说明是西文Win95方法二:可以使用以下代码:936是简体Windows95的code pageif (GetSystemMetrics(SM_DBCSENABLED) > 0) and (IsValidCodePage(936) ) thenbChineseMode := TrueelsebChineseMode:=False;
//可以测试日文、韩文,简体中文,繁体中文和泰文
var
LangID: integer;
begin {Detect current os support double bytes or not}
Result := False;
try
LangID := GetACP;
if LangID = 936 then Result := True //Simplified Chinese
else if LangID = 950 then Result := True //Traditional Chinsee
else if LangID = 932 then Result := True //Japanese
else if LangID = 949 then Result := True //Korean
else if LangID = 874 then Result := True; //Thai
except
end;
end;
不能告诉我是否为简体
请问还有其他API吗?