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

Итак, у Вас есть готовое приложение, которое будет использовать шрифты, которых может не оказаться на компьютере у заказчика и Вам необходимо проинсталлировать шрифты на систему заказчика.

Желательно, конечно скопировать Ваши шрифты в папку C:\Windows\Fonts и затем проинсталлировать их.

Вот что для этого нужно:

Установка шрифта

{ Копируем файл из временной папки в папку Windows\Fonts }
CopyFile('C:\Temp\YourFont.ttf',
         'C:\Windows\Fonts\YourFont.ttf', true);
AddFontResource('C:\Windows\Fonts\YourFont.ttf');
PostMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

Удаление шрифта

RemoveFontResource('C:\Windows\Fonts\YourFont.ttf');
PostMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
{ Удаляем файл }
DeleteFile('C:\WINDOWS\FONTS\YourFont.ttf');