******************************************************
* 安装字库____范例_____
*
* 该范例已在 Win2000 Server + SP3 + VFP 6.0 + VSSP5 运行通过
******************************************************
&& 原字库文件名
cSrcFontFile = "C:\Temp\金山简行楷.ttf"
&& 目标字库文件名
cDstFontFile = "C:\Winnt\Fonts\金山简行楷.ttf"
lCopyFont = .T.
&& .T. 拷贝到系统目录 .F. 保留在原路径
If lCopyFont
Copy File "&cSrcFontFile" To "&cDstFontFile"
Else
cDstFontFile = cSrcFontFile
EndIf
&& 注册字库文件
Declare Integer AddFontResource In GDI32 String
AddFontResource ( cDstFontFile )
******************
* 御载字库文件的方法
*
* Declare Integer RemoveFontResource In GDI32 String
* RemoveFontResource ( cDstFontFile )
&& 清除 Dlls 定义
Clear Dlls
责任编辑:小草