Как добавить True Type шрифт в систему

Советы » Шрифты » Как добавить True Type шрифт в систему

Чтобы установить шрифт в систему, необходимо скопировать файл шрифта в 'WindowsFonts' и добавить ключ в реестр:

'SoftwareMicrosoftWindowsCurrentVersionFonts'

Этот ключ указывает на файл шрифта. Далее запускаем API функцию 'AddFontRecource'. В заключении нужно уведомить систему широковещательным сообщением.

uses

Registry; procedure

TForm1.Button1Click(Sender: TObject); var

hReg: TRegistry; hBool : bool; begin

CopyFile('C:DOWNLOADFP000100.TTF', 'C:WINDOWSFONTSFP000100.TTF', hBool); hReg := TRegistry.Create; hReg.RootKey := HKEY_LOCAL_MACHINE; hReg.LazyWrite := false

; hReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionFonts', false

); hReg.WriteString('TESTMICR (TrueType)','FP000100.TTF'); hReg.CloseKey; hReg.free; //Добавляем ресурс шрифта AddFontResource('c:windowsfontsFP000100.TTF'); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); //Убираем блокировку ресурса RemoveFontResource('c:windowsfontsFP000100.TTF'); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com