易语言取字体文件名称源码

系统结构:AddFontResourceA,SendMessageA,创建字体资源文件,

======窗口程序集1
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   AddFontResourceA
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   创建字体资源文件

调用的DLL命令:

.DLL命令 AddFontResourceA, 整数型, , "AddFontResourceA"
    .参数 ttfname, 文本型

.DLL命令 SendMessageA, 整数型, , "SendMessageA"
    .参数 a
    .参数 b
    .参数 c
    .参数 d

.DLL命令 创建字体资源文件, 整数型, , "CreateScalableFontResourceA"
    .参数 fHidden, 整数型, , 0
    .参数 欲创建的资源文件的名字, 文本型, , 普通文件使用.FOT扩展名，只读文件使用.FOR扩展名
    .参数 TureType字体文件文件的文件名, 文本型
    .参数 lpszCurrentPath, 文本型