Screen.Fonts是一个TStrings对象，用IndexOf('文鼎彩云繁')
方法可以知道是否安装了新字体。
如果没有安装，则安装新字体：
AddFontResource('c:/YouyFontFile.ttf');
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
//*******************
可以用AddFontResource函数将TTF文件临时加入到系统, 检查它的信息后使用
RemoveFontResource从系统中删除.
对于TTF文件, 如果没有伴随的头文件*.FOT, 必须首先CreateScalableFontResource
函数去创建(将TTF文件名作为第三个参数)一个然后才能使用AddFontResource将
新创建的FOT文件名作为参数.
每当为系统添加或删除一个font资源时, 必须用SendMessage发送一个FONTCHANGE
消息给系统, 以便通知其他程序系统的字体表发生了变化.
