发布用造字程序造的字到别的机子上(100分)

  • 主题发起人 主题发起人 zf_free
  • 开始时间 开始时间
Z

zf_free

Unregistered / Unconfirmed
GUEST, unregistred user!
我造了一批字母,想在delphi 中随程序发布到其他机子中,如何做,各位老大帮忙阿,
 
把整个字体拷过去
 
这也是我收藏的.
来自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;
 
接受答案了.
 
后退
顶部