获取系统安装的TTF字体.通过C#定义Lisp函数.
在lisp中我没有找到如何获取系统已经安装的字体.那么我在C#中实现了它,代码如下.//
using System.Drawing.Text;
using System.Drawing;
using System.Collections;
//<<<<ernd using
//获得系统安装的TTF字体
public static ResultBuffer GetSysFont(ResultBuffer resBufIn)
{
ResultBuffer rf = new ResultBuffer();
InstalledFontCollection MyFont = new InstalledFontCollection();
FontFamily[] MyFontFamilies = MyFont.Families;
//ArrayList list = new ArrayList();
int Count = MyFontFamilies.Length;
for (int i = 0; i < Count; i++)
{
string FontName = MyFontFamilies.Name;
//list.Add(FontName);
AddValueToResultBuffer(ref rf, FontName);
}
return rf;
}
关于AddValueToResultBuffer 方法 在我的乐筑天下日记中有记录.
页:
[1]