请问如何在Delphi程序中将字体安装到操作系统

Question

请问如何在Delphi程序中将一字体文件安装到操作系统中呢?谢谢

Answer 1

也可以直接复制到字体文件夹中就是安装了!
CopyFile('D:\OtherFonts\Abc.TTF','c:\windows\fonts\abc.ttf'); 
然后再 
AddFontResource('C:\windows\fonts\abc.ttf'); 
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );

Answer 2

复制就可以的啊，
楼上的
'c:\windows\fonts\abc.ttf'); 
改 %systemroot%\fonts\abc.ttf

Answer 3

楼主请注意：不是在Delphi程序中将字体安装到操作系统，而是在打包时将字体嵌入包中，在释放安装程序时会自动注册到系统字体库中。