怎么判断字体是否已安装

shiyue十月

如果直接用字体_枚举w和取系统字体列表（）来获取已安装的字体名称的话，获取的名称会重名，因为正常字体全称是（字体名称+字体样式（粗、斜）），而这两个命令获取的名称有些是不完全的
，比如我上传的字体文件中安装后（AvenirLTPro-Oblique.otf、AvenirLTPro-Roman.otf）获取系统的字体列表，只有“AvenirLTPro-Roman”，我查了相关资料，貌似EnumFontFamiliesExW函数通过传入参数可以获取到具体的样式信息、全称，但是我不会用，大佬帮忙看看，写个例程，感激不尽

EnumFontFamiliesEx函数地址：https://learn.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-enumfontfamiliesexw

梦寻简单

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

调试输出 (判断字体是否存在 (“Avenir LT Pro 55 Roman”, “AvenirLTPro-Oblique”))

子程序名	返回值类型	公开	备 注
判断字体是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
字体名称	文本型
字体全称	文本型

变量名	类 型	静态	数组	备 注
hdc	整数型
lpLogfont	整数型
lfFaceName	字节集
ret	整数型
i	整数型

lfFaceName ＝ 编码_Ansi到Unicode (字体名称)
hdc ＝ GetDC (0)
lpLogfont ＝ LocalAlloc (64, 92)
' lpLogfont.lfCharSet ＝ 1
__set_byte (lpLogfont, 23, 1)
' lpLogfont.lfFaceName ＝ lfFaceName
计次循环首 (取字节集长度 (lfFaceName), i)
__set_byte (lpLogfont, 28 ＋ i － 1, lfFaceName [i])
计次循环尾 ()
ret ＝ EnumFontFamiliesExW (hdc, lpLogfont, 到整数 (&EnumFontFamProc), 取变量数据地址 (字体全称), 0)
LocalFree (lpLogfont)
ReleaseDC (0, hdc)
返回 (选择 (ret ＝ 2, 真, 假))

子程序名	返回值类型	公开	备 注
EnumFontFamProc	整数型
参数名	类 型	参考	可空	数组	备 注
lpelfe	整数型
lpntme	整数型
FontType	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
字体全称	文本型

字体全称 ＝ 指针到文本 (lParam)
如果真 (取文本长度 (字体全称) ＝ 0)
返回 (2)
如果真 (编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 92)) ＝ 字体全称)
' elfStyle
' 编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 220))
返回 (2)
返回 (1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 调试输出 (判断字体是否存在 (“Avenir LT Pro 55 Roman”, “AvenirLTPro-Oblique”))<br /> <br /> .子程序 判断字体是否存在, 逻辑型, 公开<br /> .参数 字体名称, 文本型<br /> .参数 字体全称, 文本型, 可空<br /> .局部变量 hdc, 整数型<br /> .局部变量 lpLogfont, 整数型<br /> .局部变量 lfFaceName, 字节集<br /> .局部变量 ret, 整数型<br /> .局部变量 i, 整数型<br /> <br /> lfFaceName ＝ 编码_Ansi到Unicode (字体名称)<br /> hdc ＝ GetDC (0)<br /> lpLogfont ＝ LocalAlloc (64, 92)<br /> ' lpLogfont.lfCharSet ＝ 1<br /> __set_byte (lpLogfont, 23, 1)<br /> ' lpLogfont.lfFaceName ＝ lfFaceName<br /> .计次循环首 (取字节集长度 (lfFaceName), i)<br />     __set_byte (lpLogfont, 28 ＋ i － 1, lfFaceName <i>)<br /> .计次循环尾 ()<br /> ret ＝ EnumFontFamiliesExW (hdc, lpLogfont, 到整数 (&EnumFontFamProc), 取变量数据地址 (字体全称), 0)<br /> LocalFree (lpLogfont)<br /> ReleaseDC (0, hdc)<br /> 返回 (选择 (ret ＝ 2, 真, 假))<br /> <br /> .子程序 EnumFontFamProc, 整数型<br /> .参数 lpelfe, 整数型<br /> .参数 lpntme, 整数型<br /> .参数 FontType, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 字体全称, 文本型<br /> <br /> 字体全称 ＝ 指针到文本 (lParam)<br /> .如果真 (取文本长度 (字体全称) ＝ 0)<br />     返回 (2)<br /> .如果真结束<br /> .如果真 (编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 92)) ＝ 字体全称)<br />     ' elfStyle<br />     ' 编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 220))<br />     返回 (2)<br /> .如果真结束<br /> 返回 (1)

gdhong

.版本 2
.支持库 eAPI
.支持库 spec

.局部变量 font, 文本型, , "0"

font ＝ 取系统字体列表 ()
调试输出 (font)

shiyue十月

gdhong 发表于 2024-3-24 11:05
.版本 2
.支持库 eAPI
.支持库 spec

注意审题呀  取系统字体列表和字体_枚举w  取的字体名称有些是不全的   两个字体（ABC-123和ABC-321）,都显示ABC没法进行对比来判断是否安装过了，得把全称都取出来才能判断

无夜

你别管它是否安装啊，每次启动软件都执行安装一次不就行了呗。。。

gdhong

安装后，字体AvenirLTPro-Oblique找不到

gdhong

gdhong

用WORD也可以查找字体，当字体不存在时，怎能查到？如下代码也可以查找字体，使用了EnumFontsA函数：https://www.eyuyan.la/?a=down&pid=6655

gdhong

为系统添加字体.e (4.14 KB, 下载次数: 8)

2024-3-24 11:57 上传

点击文件名下载附件
每次添加需要的字体就可以啦

shiyue十月

gdhong 发表于 2024-3-24 11:34
安装后，字体AvenirLTPro-Oblique找不到

不是找不到，是这两个字体是一个字体系列的   后面的内容是字体样式  而取字体列表  只能取到这个字体的系列名称   具体到样式就看不到了  但是你用在系统设置-字体设置-列表中可以看到这两个字体