易语言根据字体句柄取字体名称,取系统默认字体名称

.版本 2

.子程序 _临时子程序
.局部变量 hFont, 整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
hFont ＝ CreateMyFont (12, “微软雅黑”)

输出调试文本 (“FontName:” ＋ 到文本 (GetFontName (hFont)))
输出调试文本 (“SystemFontNmae:” ＋ 到文本 (GetFontName ()))

.子程序 CreateMyFont, 整数型
.参数 nSize, 整数型, , 字体大小
.参数 FontName, 文本型, , 字体名称
.局部变量 hdc, 整数型
.局部变量 temp, 整数型

hdc ＝ GetDC (0)
temp ＝ CreateFont (－MulDiv_ (nSize, GetDeviceCaps (hdc, #LOGPIXELSX), 72), 0, 0, 0, #FW_NORMAL, 0, 0, 0, #DEFAULT_CHARSET, #OUT_DEFAULT_PRECIS, #CLIP_DEFAULT_PRECIS, #PROOF_QUALITY, #DEFAULT_PITCH, FontName)
ReleaseDC (0, hdc)
返回 (temp)

.子程序 GetFontName, 文本型
.参数 hFont, 整数型, 可空, 本参数为字体句柄,参数为空则取系统默认字体名称
.局部变量 LogFont, LOGFONTW

hFont ＝ 选择 (是否为空 (hFont), GetStockObject (#SYSTEM_FONT), hFont)
.如果真 (hFont ≠ 0)
    GetObject (hFont, GlobalSize (LogFont), LogFont)
    DeleteObject (hFont)
.如果真结束
返回 (到文本 (LogFont.lfFaceName_LF_FACESIZE_))

@山内归屌