Как программно инсталлировать шрифты TrueType в Delphi?

Скопируйте файл шрифта в директорию Windows\Fonts, и добавьте строку с именем шрифта и его расположением в разделе «‘Software\Microsoft\Windows\CurrentVersion\Fonts». Вызовите функцию AddFontRecource(), а затем передайте системе сообщение WM_FONTCHANGE. И наконец, для удаления установленного шрифта, вызовите функцию RemoveFontRecource(), а затем передайте системе сообщение WM_FONTCHANGE.

uses Registry; 
  
procedure TForm1.Button1Click(Sender: TObject); 
var
  reg: TRegistry; 
  b : bool; 
begin
  CopyFile('C:\DOWNLOAD\FP000100.TTF', 'C:\WINDOWS\FONTS\FP000100.TTF', b); 
  reg := TRegistry.Create; 
  reg.RootKey := HKEY_LOCAL_MACHINE; 
  reg.LazyWrite := false; 
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Fonts',false); 
  reg.WriteString('TESTMICR (TrueType)','FP000100.TTF'); 
  reg.CloseKey; 
  reg.free; 
  {Add the font resource}
  AddFontResource('c:\windows\fonts\FP000100.TTF'); 
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
  {Remove the resource lock}
  RemoveFontResource('c:\windows\fonts\FP000100.TTF'); 
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
end; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий