True Type Font

[Guest - wagner -]

Minha Aplicação em deelphi usa Font TTF que não são inclusos no delphi gostaria de saber se tem como embutir a fonte junto com o Exe ou fazer o programa pegar a fonte do diretorio da Aplicação ao invés da WINNT\FONTs

Grato

[Micheus]

{First load it in the OnCreate event of a form):
procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource('c:\FONTS\MyFont.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

{Before application terminates we must free it:}
procedure TForm1.FormClose
   (Sender: TObject; var Action: TCloseAction);
begin
  RemoveFontResource('C:\FONTS\MyFont.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

Fonte: About.com