如何不操作注册表向系统安装字体？

Question

try 直接把字体复制到系统目录的FONT字体目录下

Answer 1

AddFontResource VB声明 
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long 
说明 
在Windows系统中添加一种字体资源。添加完毕后，该字体即可由任何Windows应用程序调用 
返回值 
Long，添加的字体数量，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpFileName String，字体资源文件的文件名。可以是.FON， .FNT， .TTF 或 .FOT文件 
注解 
添加了一种资源后必须调用下述API函数：
di% = SendMessageBynum(HWND_BROADCAST, WM_FONTCHANGE, x, y)
其中，HWND_BROADCAST、WM_FONTCHANGE使用来自API32.TXT文件的值。这样便可告诉所有Windows应用程序字体列表已发生了变化
 
示例 
Call AddFontResource("myfont.ttf")
Call SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) 

Answer 2

使用System.IO命名空间下的类拷贝字体数据到系统字体目录下。