delphi - 在delphi中嵌入字体

Question

我正在开发一个应用程序，该应用程序需要特定的条形码真实类型字体，而用户的电脑上不太可能有这种字体。

我可以以某种方式将字体嵌入到应用程序中，还是需要使用安装程序来安装字体？

Answer 1

在我看来，最简单的方法是使用 AddFontMemResourceEx如果字体作为资源嵌入到 EXE 中。它允许直接从内存加载字体，无需将字体保存到文件。

代码示例:

function LoadResourceFont( const ResourceName : string ) : boolean;
var
   ResStream : tResourceStream;
   FontsCount : integer;
   hFont : tHandle;
begin
   ResStream := tResourceStream.Create(hInstance, ResourceName, RT_RCDATA);
   hFont := AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount);
   result := (hFont <> 0);
   ResStream.Free();
end;