delphi提供了一个tscreen类(tcomponent)，它有一个fonts属性，这是一个tstrings类型。您可以访问此属性来获取系统中注册的字体列表:
然后判断系统是否有方形体，可以编写如下示例代码:
程序tobject)开始if(方正姚风格)ltgt-1然后开始showm
把dll封装成com，ocx然后调用它
d
淘宝的最新接口加解密功能，淘宝提供sdk:自研sdk规范:
1.加密算法要求:aes/cbc/pkcsadding，密钥长度128位。
2.用于获取密钥的缓存是否应该只放在内存中，并在服务启动后从接口中拉出。禁止存储在数据库、硬盘文件、oss等永久性存储场所。
3.模糊查询的一些功能如果不使用可能无法实现。
4.设置钥匙的过期时间，过期后再拉。密钥的过期时间会在获取密钥的接口返回，控制权在顶层服务器。密钥获取接口:请发回密钥的加解密调用次数。具体标准:每次调用加解密调用函数，对应的计数器(各种类型的计数器)会每1、5分钟同步一次。异步线程将计数器同步到顶级api接口:。具体实现请参考javasdk。最好用delphi直接调用java类实现加密解密。
