| 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参数决定 |