CreateScalableFontResource

VB声明
Declare Function CreateScalableFontResource Lib "gdi32" Alias "CreateScalableFontResourceA" (ByVal fHidden As Long, ByVal lpszResourceFile As String, ByVal lpszFontFile As String, ByVal lpszCurrentPath As String) As Long
说明
为一种TureType字体创建一个资源文件，以便能用API函数AddFontResource将其加入Windows系统。字体信息本身并不复制到字体资源文件中；相反，资源文件中包含了欲使用的TureType文件的名字
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数	类型及说明
fHidden	Long，如果是零，表示创建一个普通的字体资源；如果是1，表示创建一个只读字体资源，它只能在文档中嵌入使用
lpszResourceFile	String，欲创建的资源文件的名字。普通文件使用.FOT扩展名，只读文件使用.FOR扩展名
lpszFontFile	String，TureType字体文件文件的文件名。如果其中包含了一个路径，就到指定的路径寻找字体文件，同时不使用lpszCurrentPath参数指定的位置。而且在调用AddFontResource函数之前，会将字体复制到Windows的SYSTEM目录
lpszCurrentPath	String，由lpszFontFile参数决定