Delphiフォントリソース

Question

「フォント」として1つのTTFリソースを持つアプリケーションがあります。 FormCreateイベントでこのフォントをFomr Fontとして使用したいと思います。私はディレクトリにこのフォントを抽出し、そこからロードしたいとは思わない。私はこれで私を助けてくれません。私は学習者です。私のコードを要求しないでください。

私は、「フォントのリソースID 13」と「フォント名AmarBangla.ttf」を使用していました。私は次のコードを試しましたが、エラーが発生しました。 AddFontMemResourceEx機能はあなたを助けることができる

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

Answer 1

が、それはMicrosoft forbids embedding their fonts into applications if it violates the license of the fontのようになります：

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

二つ目：

まずひとつ：ここでは、これらのコードである

アプリケーション埋め込みフォントを含むドキュメント、と一緒に配布することはできませんアプリケーション自体に埋め込みフォントが含まれている可能性があります。

フォント埋め込みは、著作権を侵害してもよいです。最初に、再配布が可能なフォントが必要です。次に、アプリケーションと一緒にターゲットシステムにインストールする必要があります。さらに、埋め込みを許可するかどうかは、フォントのプロパティによってわかります。