这也是我收藏的.
来自dfw
要将非正常数据块加入PE文件的资源段要使用到 .rc 文件。
用记事本之类的软件创建后缀为 .rc 的文件,键入内容如下
myfont 10 DISCARDABLE "myfont.fon"
保存成文件如myfont.rc(10为用户定义资源类型)。用命令编译:
c:>c:/progra~1/borland/delphi6/bin/brc32.exe -r -fomyfont.res -v -32 myfont.rc
得到文件 myfont.res
在delphi中创建单元,加入 {$R myfont.res} 就可以把 字体编译如资源段了。
procedure LoadFontToStream;
var F1, F2: TStream;
begin
try
F1:=TResourceStream.Create(hInstance, 'myfont', RT_RCDATA);
F2:=TMemoryStream.Create;
F2.CopyFrom(F1, 0);
(F2 as TMemoryStream).SaveToFile('c:/myfont.fon');
// 已经读入内存,并可以再存出文件了。。。。
F2.Free;
F1.Free;
except
Exit
end;
end;