用字体打造更漂亮的Windows操作系统(5)

（2）放置一计算图标于流程线上，并命名为“得到Fonts文件夹“；
　　（3）按Ctrl+Shift+F键，打开Function窗口；
　　（4）选择判断字库存.a5p，点击Load钮，打开winsdk.u32文件（在光盘中下载），并引入其中的GetWindowsDir函数；
　　（5）双击计算图标，在里面写上：
　　windir:=GetWindowsDir()-得到Windows文件夹
　　fontdir:=windir^"\\fonts"--得到Fonts字库文件夹
　　（6）再拖动一计算图标于流程线上，命名为“判断存在不存在字库文件”，双击打开它，在里面写上：
　　has:=FileType(fontdir^"\\MingLiU.ttf")；
　　（7）放置一个交互图标到流程线上，命名为“判断”，再放置两个群组图标到它的下面，均为条件响应，第一个条件响应为has=0，第二个has＜＞0，当为真时执行（如图9，即选择Automatic选项为“When True”）；

图9

　　（8）双击has=0群组图标，打开第二层设计窗口，在里面放置一个显示图标和一个等待图标，在显示图标中写上“没有明细体字库”；（如图10）

图10

　　（9）双击has<>0群组图标，打开第二层设计窗口，在里面放置一个显示图标和一个等待图标，在显示图标中写上“有明细体字库”；
　　（10）点下运行钮，该程序就会告诉您到底有没有明细体字库！对于其它的字体当然也可以以此类推。