汉化consts.pas,然后编译,将编译后的consts.dcu拷贝到Lib目录下。
解决方案 »
- C/S与三层结构的讨论。。。
- 求:ehlib for delphi7
- Delphi中类型如何转换?
- 在使用setPriorityClass()函数时,编译时提示ABOVE_NORMAL_PRIORITY_CLASS和BELOW_NORMAL_PRIORITY_CLASS未定义?
- 怎么不能使用高级查询了????????????
- IW? EWF? Web RAD 的通病!
- 如何改变ListView失去焦点后选中节点的颜色?
- 如何将SQL SERVER 数据库中的表导出到ACCESS数据库中
- 各位大侠,有关动态链接库的问题,请指教!!
- 我有一个上网卡,需要用自帶的軟件上網撥内置的號碼,但是這個軟件在2000下不能用(報内存錯)
- 科学记数法的问题??几位数的情况下才出现?我怎样才能不让他出现?
- 使用socketconnection进行连接,可不知为什么连不起来,但只要拔号一连上,却可以了,这是为什么?
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;
dcc32 *.pas
or
new a projects -> add the pas file and compile it.