有两个支持库可以给你解决:
1 取系统字体列表()
调用格式: 〈文本型数组〉 取系统字体列表 () - 应用接口支持库->系统处理
英文名称:GetFontList
取系统所有字体的列表。成功返回字体数组;失败返回空。本命令为初级命令。
操作系统需求: Windows
2 安装字体()
调用格式: 〈整数型〉 安装字体 (文本型 字体文件名) - 应用接口支持库->系统处理
英文名称:AddFont
在Windows系统中添加一种字体资源。添加完毕后,该字体即可由任何Windows应用程序调用。成功返回添加的字体数量;失败返回0。本命令为初级命令。
参数<1>的名称为“字体文件名”,类型为“文本型(text)”。字体资源文件的文件名。可以是.FON,.FNT,.TTF或.FOT文件。
操作系统需求: Windows
添加一个“通用对话框”组件,在写代码:
.版本 2
通用对话框1.类型 = 2
通用对话框1.打开 ()
这样就能取出系统的字体列表了
安装的话把字体文件复制到“C:\Windows\Fonts”目录下就可以了,用“复制文件”命令。
欢迎采纳~~