Delphi 字体修改一例

转载 2006年05月19日 01:06:00
前言

汉化人大宇在汉化CTris2000这个Delphi 程序的时候,修改了所有RCData中的字体设置,但仍然有一个窗体的字体很难看,我帮他做了修改,在这里就以它为例说一下 Delphi 程序字体字号的修改。

本来,我以为要详细的说才能说清,不过现在看来,也未必,所以在这里还是简单的说一下算了。

Delphi 程序的字体

关于 Delphi 程序的字体,以我想大概有三种情况:

一、RCData 格式。这种格式的字体字号的问题有很多工具,诸如 eXeScope 、ResHacker 等工具都可以非常方便的修改,而且这也是 Delphi 程序中的字体设置使用最多的方法,而且大多数 Delphi 程序都只使用这一种方式,而其修改方法相对成熟的多,所以我不讨论这种方式。

二、SDK 格式。有些 Delphi 程序为了追求最小的独立可执行文件尺寸,不使用 Delphi 缺省的 VCL 运行库,而是自行使用 SDK 的编程方式,不过这种程序不多,如果有,个头也很小,一般是几K、十几K的居多,如果在这些程序里出现字体不协调的问题,可以使用和修改 C 字体字号相同的方法修改。

三、VCL 内部格式。VCL 是 Delphi 使用的函数库,其内部很可能使用了不是我们所希望的“宋体,9”的窗体,不过我想来想去,也只有类似 VB 函数的 InputBox 有这种可能,也就是 CTris2000 中要求输入姓名的那个窗体,故我们要谈的就是这种方式的程序的字体的修改,而且,几乎可以确定的固定在 InputBox 上,当然,即使是这一种情况,也比较类似 C 字体的修改,而不是 VB 。(我不知道 Delphi 中相同功能的函数的函数名,所以暂称其为 InputBox)。

修改过程

我修改的过程比较繁琐,所以在这里剔除复杂的部分,简单的说。

首先,使用 W32dasm 反汇编汉化后的 CTris2000.exe ,存盘,打开 CTris2000.alf 文件,查找 CreateFont ,发现只有 CreateFontIndirectA ,而没有 CreateFontA ,这真是一个烦人的开始。继续查找,发现 CreateFontIndirectA 被三个地方调用,地址分别是 4124EC 、420460 和 42A7F3 。

运行 Trw2000 ,调入 CTris2000.exe ,然后键入“bpx 4124EC”、“bpx 420460” 和 “bpx 42A7F3”设置断点,按“F5”运行,中断时键入“dd *esp”查看堆栈的栈顶指针所指的地址的内容,发现大多数情况此地址的开头都是“FFFFFFF4”,也就是“-12”,是正常的,不过有一次,它是“FFFFFFF5”,也就是“-11”,在它下面一点,我们见到了这种字体的名称“MS Sans Serif”。

用 ResHacker 检查 CTris2000.exe ,发现并不是所有的“MS Sans Serif,8”都被改成了“宋体,9”,所以首先把这些没有改成“宋体,9”的项都改成“宋体,9”,存盘。

用 UEdit 打开 CTris2000.exe ,查找“MS Sans Serif”,只有一个,在 0x5b0b8 处,为了验证,把这个“MS Sans Serif”改成“System”,运行程序,发现那个输入窗体的字体确实如我们所想的变成“宋体,12”了。

0x5b0b8 在数据段,所以,数据基偏移 = 基地址 + 数据RVA - 数据Offset = 400000h + 5c000h - 5ae00 = 401200h ,所以,0x5b0b8 的在代码中为 401200h + 5b0b8 = 45C2B8h 。在 CTris2000.alf 查找“0045C2B8”,没找到,那么,查找“0045C2B”吧,找到几处,如“0045C2B7”、“0045C2B6”和“0045C2B0”,很是奇怪。

运行 Trw2000 ,调入 CTris2000.exe ,像上面一样设断点,运行到有问题的 CreateFontA 的时候,键入“dd 0045C2B0”,看看是什么?原来是“FFFFFFF5”!好吧,把“0045C2B0”当作突破口。

打开 CTris2000.alf ,查找“0045C2B0”,发现两个地方,代码如下:


不知道大家是否能大概看懂上面的代码,不过它和我在《C 程序字号的修改》里摘抄的 MSDN 里建议的设置字号的方式是基本一样的:


我们可以看到,“0041960F”处的“6A08”压入的就是磅值,我们需要的是 9 磅的字体,所以把“6A08”改成“6A09”就可以了。代码基偏移 = 基地址 + 代码RVA - 代码Offset = 400000h + 1000h - 400h = 400c00h ,41960fh - 400c00h = 18a0fh ,也就是说“6a08”在 0x18a0f 处。

所以,最后的修改是这样的:把 0x5b0b8 处的 "MS Sans Serif" 改成 "宋体";把 0x18a0f 处的 6a08 改成 6a09 。

虽然我已经简化了过程,不过好像还是很麻烦,那么有没有什么简单的方法呢?有的。

一、如果实在不会这样的修改方法,也不要留着,把“MS Sans Serif”改成“System”是一种简单有效的方法,遗憾的是字体显得比较大。

二、先把“MS Sans Serif”改成“宋体”,然后用 W32dasm 反编译汉化后的程序并存盘后,用 EmEditor 打开 *.alf 文件,按“Ctrl+F”,出现查找对话框,选择“使用表达式”,在要查找的文本中输入“push 00000008/n/n* Reference To: kernel32.MulDiv,”,找到的不会很多,把“08”修改成“09”试一试,直到得到正确的结果。

需要注意,第二种方法只适用于 Delphi 程序的 InputBox 的字体修改,而第一种方法适用于所有程序。另外,我因为没有见到其它类似的 Delphi 程序,也不能肯定第二种方法就是对的,如果各位有见到,不妨一试

Delphi汉字简繁体转换代码

//delphi 7 Delphi汉字简繁体转换代码unit ChineseCharactersConvert; interface uses   Classes, Windows; type   T...
  • ttpage
  • ttpage
  • 2013年06月24日 13:55
  • 1195

Delphi 字体修改一例

Delphi 字体修改一例 声明个人可以自由转载本文,不过应保持原文的完整性,并通知我;商业转载先请和我联系。 本文没有任何明确或不明确地提示说本文完全正确,阅读和使用本文的内容是您自己的选择,本人不...
  • jiangtao
  • jiangtao
  • 2001年02月08日 17:58
  • 3349

delphi 更改DBGrid 颜色技巧

1、根据条件更改某一单元格的颜色 procedure TMainFrm.First_DGDrawColumnCell(Sender: TObject; const Rect: TRect; ...
  • Trassion
  • Trassion
  • 2013年06月05日 01:28
  • 10177

gtk+修改控件文本字体一例

因为家里电脑是Mac系统,所以就拿Mac系统来示范。要注意的是gtk+2.0和3.0对字体的处理是有一些区别的:1.后者使用的是pango的机制,我们这里以gtk+3.0为基础。 2.两者调用Fon...
  • mydo
  • mydo
  • 2015年08月02日 20:06
  • 2061

Delphi文件目录操作一例

  • 2012年08月09日 18:15
  • 5KB
  • 下载

更改Delphi系统的默认字体

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月15日 08:04
  • 301

ListBox第一行字体比其他行小的问题,delphi要不要打包

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月15日 04:53
  • 132

修改上一例,改为多线程执行

修改之前的爬虫,改为多线程下载,进行了简单粗暴的修改 import threading import time import queue import urllib.request import r...
  • sofeien
  • sofeien
  • 2016年03月09日 15:48
  • 247

修改ebp带来的问题一例

一般情况下我们很少去修改ebp,即使使用汇编也只是用到eax 、ebx等几个通用寄存器,ebp和esp都是让编译器自动安排的。但有时ebp的修改就成为必须,如进行inline hook的时候,这时就要...
  • joeleechj
  • joeleechj
  • 2012年12月28日 23:11
  • 722

手工修改tnsnames.ora引起的故障一例

Oracle最早是依赖Unix/Linux为基础成长起来,很多时候环境配置中带有一些文本配置的痕迹。我们在进行配置和更改时,一定要注意细节、注意方法,否则可能会引发的一些故障问题。   下午一个开...
  • xiaoxing1521025
  • xiaoxing1521025
  • 2013年11月27日 11:47
  • 560
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 字体修改一例
举报原因:
原因补充:

(最多只允许输入30个字)