汉化consts.pas,然后编译,将编译后的consts.dcu拷贝到Lib目录下。

解决方案 »

  1.   

    同意 chechy(我爱洁洁) 的作法
      

  2.   

    delphi5下汉化consts.pas,delphi6下面要汉化两个文件。
      

  3.   

    chechy(我爱洁洁) 啊,你是不是天天不睡觉啊。我怎么天天碰上你跑我前面? ;(
      

  4.   

    在修改了Consts.pas后,再修改Graphics.pas 文件,在InitDefFontData过程,如下:
    procedure InitDefFontData;
    var
      Charset: TFontCharset;
    begin
      DefFontData.Height := -MulDiv(8, ScreenLogPixels, 72);
      if not SysLocale.FarEast then Exit;
      Charset := GetDefFontCharset;
      case Charset of
        SHIFTJIS_CHARSET:
          begin
            DefFontData.Name := '俵俽 俹僑僔僢僋';
            DefFontData.Height := -MulDiv(9, ScreenLogPixels, 72);
            DefFontData.CharSet := CharSet;
          end;
       //加入以下语句
        GB2312_CHARSET:
        begin
          DefFontData.Name :='';
          DefFontData.Height :=-MulDiv(9,ScreenLogPixels,72);
          DefFontData.Charset:=CharSet;
        end;
       //修改结束
      end;
    end;
      

  5.   

    console mode
    dcc32 *.pas
    or 
    new a projects -> add the pas file and compile it.