Программирование Delphi

Здесь показывается, как использовать шрифты TTF (True Type Font) в Вашем приложении Delphi без необходимости инсталлировать их в Windows.

1. В событии OnCreate главной формы Вашего приложения Delphi вызываем функцию API AddFontResource. Функция AddFontResource добавляет ресурс шрифта из указанного файла в системную таблицу шрифтов.
2. Когда приложение больше не будет нуждаться в ресурсе шрифта, который мы загрузили, вызывая функцию AddFontResource, Вы должны будете удалить этот ресурс, вызвав функцию RemoveFontResource. Сделать это лучше в событии OnDestroy главной формы Вашего приложения.

procedure TForm1.FormCreate(Sender: TObject) ;
 begin
   AddFontResource('C:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
 end;
 
 { Перед закрытием приложения обязательно удалите шрифт:}
 procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
 begin
   RemoveFontResource('C:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
 end;