我们日常安装字体都是直接拷贝字体文件到windowsfonts目录中，但是在程序中通过拷贝的方式安装，或有这样那样的问题。很有意思.NET程序当然可以调用这个非托管函数安装字体，但是.NET Framework中提供一个很有意思的类：PrivateFontCollection，可以调用这个类中的AddFontFile方法安装一个私有的字体，不会影响其他应用程序，也就是不会拷贝到Fonts目录中，但是可以在你的应用程序中使用，这是GDI+特性。
declare function addfontresource lib “gdi32” alias “addfontresourcea” _
(byval lpfilename as string) as long
declare function removefontresource lib “gdi32” alias “removefontresourcea” _
(byval lpfilename as string) as long
代码:
增加字体：
dim lresult as long
lresult = addfontresource(“c:myappmyfont.ttf”)
删除字体：
dim lresult as long
lresult = removefontresource(“c:myappmyfont.ttf”)
