如何检测系统是否已经安装了繁体?
解决方案 »
- DBGridEh錄入數據庫問題
- fastreport 4.0 如何导出WPS???
- 怎么获取窗口中的所有子控件
- 大家看看,http://www.vdisk.cn/的盘符是怎么做出来得?
- 【【有史以来第一次散分】】::祝贺收到第一份美金订单(二)
- Delphi7.0简体中文版已经发布一年多了怎么一直没有在网上看到,哪位大侠知道哪里有,小弟在这里谢过了。。。
- 不好意思,先前意思表达有误。。。(菜鸟问题)
- 难,难,难!!!!高手请进呀!
- !!!!!请问,怎么利用程序往注册表写双字节的数据?
- 如何在程序运行时改变数据库服务器的名称?
- 高分求救 TreeView问题!如何把数据库中的记录按 Type 字段查询用TreeView显示出来!
- Delphi6读取多个串口数据
procedure TForm1.Button1Click(Sender: TObject);
var
S : array[0..255] of char;
iType : LCTYPE;
begin
iType := LOCALE_SNATIVELANGNAME;
GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, iType, S, SizeOf(S));
if s='中文(简体)' then
showmessage('简体')
else
showmessage('繁体');
end;