判断系统是否已经安装了某字体

梦寻简单

来自于问答区的一个问题：https://bbs.125.la/thread-14815784-1-1.html。

  

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

变量名	类 型	静态	数组	备 注
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 ＝ 0, 真, 假))

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

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

字体全称 ＝ 指针到文本 (lParam)
如果真 (取文本长度 (字体全称) ＝ 0)
返回 (0)
如果真 (编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 92)) ＝ 字体全称)
' elfStyle,如果想看,也可以输出下看看嘛。
' 编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 220))
返回 (0)
返回 (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 ＝ 0, 真, 假))<br /> <br /> .子程序 EnumFontFamProc, 整数型<br /> .参数 lpelfe, 整数型<br /> .参数 lpntme, 整数型<br /> .参数 FontType, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 字体全称, 文本型<br /> <br /> 字体全称 ＝ 指针到文本 (lParam)<br /> .如果真 (取文本长度 (字体全称) ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 92)) ＝ 字体全称)<br />     ' elfStyle,如果想看,也可以输出下看看嘛。<br />     ' 编码_Unicode到Ansi (指针_到字节集W (lpelfe ＋ 220))<br />     返回 (0)<br /> .如果真结束<br /> 返回 (1)

  

DLL命令名	返回值类型	公开	备 注
EnumFontFamiliesExW	整数型
DLL库文件名:
gdi32
在DLL库中对应命令名:
EnumFontFamiliesExW
参数名	类 型	传址	数组	备 注
hdc	整数型
lpLogfont	整数型
lpProc	整数型
lParam	整数型
dwFlags	整数型

.版本 2<br /> <br /> .DLL命令 EnumFontFamiliesExW, 整数型, "gdi32", "EnumFontFamiliesExW"<br />     .参数 hdc, 整数型<br />     .参数 lpLogfont, 整数型<br />     .参数 lpProc, 整数型<br />     .参数 lParam, 整数型<br />     .参数 dwFlags, 整数型

引用了精易模块，下载入口：https://bbs.125.la/forum-125-1.html。

文档参考：EnumFontFamiliesExW 函数 (wingdi.h) - Win32 apps | Microsoft Learn

year1970

感谢分享

mnin

感谢分享，很给力！~

道无尘

E: 判断系统是否已经安装了某字体 [修改]

wanfeng晚风

支持55555支持支持支持

freeocean

赠人玫瑰手有余香

澎湃物联

        感谢分享，很给力！~

kk4648

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 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)

阿白不爱吃菜

看看看看。

229481880

牛皮，支持,谢谢分享。