Delphi字体资源

我有一个应用程序包含一个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;

该函数可以帮助您，但它看起来像：

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

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

该函数可以帮助您，但它看起来像：

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

---

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

如果您不好意思向我们展示您编写的代码，那么我们可能会帮助您改进一些内容。学习没有错；当你沉默寡言、不愿意改进时，问题就出现了。谈话是廉价的。告诉我代码。：）我使用了“字体资源ID 13”和“字体名称AmarBangla.ttf”。我已经尝试了以下代码，但格廷错误。这是第一个代码：过程TForm01.FormCreate（发送方：TObject）；begin Form01.font[13]：=AddFontResource（LPCTSTR lpszFontName））；Form01.font:=13；第二个：过程TForm01.FormCreate（发送方：TObject）；begin Form01.font[13]：=AddFontResource（Hinstance，MakeIntResource（13））；Form01.font:=13@Koushik Halder：如果您将代码添加到原始帖子中，您将能够很好地格式化它（这在评论中是不可能的）。@Koushik-addfontsource不返回TFont，也不返回字体句柄。。添加字体后，您可以通过指定其名称来使用它。名称：='AmarBangla'。如果您不好意思向我们展示您编写的代码，那么我们可能可以帮助您改进一些内容。学习没有错；当你沉默寡言、不愿意改进时，问题就出现了。谈话是廉价的。告诉我代码。：）我使用了“字体资源ID 13”和“字体名称AmarBangla.ttf”。我已经尝试了以下代码，但格廷错误。这是第一个代码：过程TForm01.FormCreate（发送方：TObject）；begin Form01.font[13]：=AddFontResource（LPCTSTR lpszFontName））；Form01.font:=13；第二个：过程TForm01.FormCreate（发送方：TObject）；begin Form01.font[13]：=AddFontResource（Hinstance，MakeIntResource（13））；Form01.font:=13@Koushik Halder：如果您将代码添加到原始帖子中，您将能够很好地格式化它（这在评论中是不可能的）。@Koushik-addfontsource不返回TFont，也不返回字体句柄。。添加字体后，可以通过指定其名称来使用它。名称：='AmarBangla'。