Delphi 字体资源

Question

我有一个应用程序，其中包含一个 TTF 资源作为“字体”。我希望在 FormCreate 事件中使用此字体作为 Fomr 字体。我不愿意将此字体提取到目录并从那里加载。我无法做到这一点，请帮助我。我是学习者，请不要询问我的代码。

我使用了“字体资源 ID 13”和“字体名称 AmarBangla.ttf”。我已尝试以下代码，但出现错误。这是这些代码：

第一个：

procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (LPCTSTR lpszFontName));
    Form01.font := 13;
end;

第二个：

 procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (Hinstance, MakeIntResource(13));
    Form01.font := 13;
 end;

Answer 1

AddFontMemResourceEx函数可以帮助你，但它看起来像 如果违反字体许可，微软将禁止将其字体嵌入到应用程序中：

应用程序不能与包含嵌入字体的文档一起分发，应用程序本身也不能包含嵌入字体。

字体嵌入可能会侵犯版权。您首先需要一种允许重新分发的字体，然后需要将其与应用程序一起安装在目标系统上。此外，字体的属性会告诉您它们是否允许嵌入。