Как установить шрифт
Желательно, конечно скопировать Ваши шрифты в папку 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');
Комментарии