Как добавить 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
;

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

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

Категории

Статьи

Советы