易语言取设窗口字体源码

系统结构:取控件字体信息,置控件字体信息,GetObject,SendMessage,LocalSize,CreateFontIndirect,DeleteObject,RtlMoveMemory,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取控件字体信息
           |  |
           |  |------ 置控件字体信息
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetObject
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   CreateFontIndirect
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   RtlMoveMemory

调用的DLL命令:

.DLL命令 GetObject, 整数型, "gdi32.dll", "GetObjectA", , 取得对指定对象进行说明的一个结构。windows手册建议用GetObject这个名字来引用该函数。GetObjectAPI在vb中用于避免与GetObject关键字混淆  如lpObject设为零（用ByVal As Long在这种情况下传递一个NULL参数），则必须设置缓冲区的长度。如执行成功，返回载入结构内部的实际字节数；如失败，返回零值
    .参数 hObject, 整数型, , 画笔、刷子、字体、位图或调色板等对象的句柄
    .参数 nCount, 整数型, , 欲取回的字节数。通常是由lpObject定义的那个结构的长度
    .参数 lpObject, LOGFONT, 传址, 任何类型，用于容纳对象数据的结构。针对画笔，通常是一个LOGPEN结构；针对扩展画笔，通常是EXTLOGPEN；针对字体是LOGBRUSH；针对位图是BITMAP；针对DIBSection位图是DIBSECTION；针对调色板，应指向一个整型变量，代表调色板中的条目数量

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

.DLL命令 LocalSize, 整数型, "kernel32.dll", "LocalSize", , 返回本地内存块大小
    .参数 hMem, LOGFONT

.DLL命令 CreateFontIndirect, 整数型, "gdi32.dll", "CreateFontIndirectA"
    .参数 LOGFONT, LOGFONT

.DLL命令 DeleteObject, , , "DeleteObject"
    .参数 hMem

.DLL命令 RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型
    .参数 Length, 整数型