&& 原字库文件名
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
检测是否安装的最原始简单的方法：FILE(cFileName,1) |
