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