.版本 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_))