Delphi字体资源

Question

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

我使用了“字体资源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功能可以为您提供帮助，但它看起来像Microsoft forbids embedding their fonts into applications if it violates the license of the font：

  

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

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