比如有一个标签label1。
设置label1的字体为：幼圆。如果字体中没有该字体，则设置label1字体为：黑体。
请高手赐教！

幼圆 黑体 系统应该都有吧

AFONT()

仅以此两种字体来举例.有这种需求.

就事论事的方法：
读注册表，获取你的系统已安装的字库：
Run/N RegEdit /E FontFile.txt "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
然后从 FontFile.txt 查找中你所需要的字库
FontFile.txt 文件是 UniCode 编码的，再转换一下。

但不建议这么做，为了一个 label1 的字体，花上数秒的时间判别是否有某个字库，不值得。

或者换一种做法：
判别 Windowes\Fonts 目录下是否有：SIMYOU_1.TTF (幼圆) 和 SIMHEI_1.TTF (黑体) 这两个文件，这个方法速度快一些。