谢谢!!!!!!

解决方案 »

  1.   

    方法一: 
    可以通过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; 
     
      

  2.   

    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;
      

  3.   

    SM_DBCSENABLED 如支持双字节则为TRUE
    不能告诉我是否为简体
    请问还有其他API吗?