易语言批量字体设置源码

易语言批量字体设置源码系统结构:彗星创建字体,彗星删除字体,彗星设置字体,SendMessage,CreateFont,GetObject_LOGFONT,GetStockObject,GetWindow,LocalSize_LOGFONT,DeleteObject, ======程序集1 || ||------_启动子程序 || ||------彗星创建字体 || ||------彗星删除字体 || ||------彗星设置字体 || || ======窗口程序集1 || ||------_按钮1_被单击 || ||------_窗口1_将被销毁 || ||------_图片框1_鼠标左键被按下 || || ======调用的Dll || ||---[dll]------SendMessage || ||---[dll]------CreateFont || ||---[dll]------GetObject_LOGFONT || ||---[dll]------GetStockObject || ||---[dll]------GetWindow || ||---[dll]------LocalSize_LOGFONT || ||---[dll]------DeleteObject 调用的DLL命令: .DLL命令SendMessage,整数型,"user32","SendMessageA",,调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum，;SendMessageByString是该函数的“类型安全”声明形式　由具体的消息决定 .参数hwnd,整数型,,要接收消息的那个窗口的句柄 .参数wMsg,整数型,,消息的标识符 .参数wParam,整数型,,具体取决于消息 .参数lParam,整数型,,具体取决于消息; .DLL命令CreateFont,整数型,"gdi32","CreateFontA",,用指定的属性创建一种逻辑字体　执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError .参数H,整数型,,IfHeight .参数W,整数型,,IfWeight .参数E,整数型,,IfEscapement .参数O,整数型,,IfOrientation .参数W,整数型 .参数I,整数型,,IfItalic .参数u,整数型,,IfUnderline .参数S,整数型,,IfStrikeOut .参数C,整数型,,IfCharSet .参数OP,整数型,,IfOutputPrecision .参数CP,整数型,,IfClipPrecision .参数Q,整数型,,IfQuality .参数PAF,整数型,,IfPitchAndFamily .参数F,文本型,,IfFaceName; .DLL命令GetObject_LOGFONT,整数型,"gdi32","GetObjectA",,取得对指定对象进行说明的一个结构。windows手册建议用GetObject这个名字来引用该函数。GetObjectAPI在vb中用于避免与GetObject关键字混淆　如lpObject设为零（用ByValAsLong在这种情况下传递一个NULL参数），则必须设置缓冲区的长度。如执行成功，返回载入结构内部的实际字节数；如失败，返回零值 .参数hObject,整数型,,画笔、刷子、字体、位图或调色板等对象的句柄 .参数nCount,整数型,,欲取回的字节数。通常是由lpObject定义的那个结构的长度 .参数lpObject,LOGFONT,传址,任何类型，用于容纳对象数据的结构。针对画笔，通常是一个LOGPEN结构；针对扩展画笔，通常是EXTLOGPEN；针对字体是LOGBRUSH；针对位图是BITMAP；针对DIBSection位图是DIBSECTION；针对调色板，应指向一个整型变量，代表调色板中的条目数量 .DLL命令GetStockObject,整数型,"gdi32","GetStockObject",,取得一个固有对象（Stock）。这是可由任何应用程序使用的windows标准对象之一　指向指定对象的一个句柄。零表示出错 .参数nIndex,整数型,,下述表格中定义的任何常数之一BLACK_BRUSH黑色刷子DKGRAY_BRUSH黑灰色刷子GRAY_BRUSH灰色刷子HOLLOW_BRUSH凹刷子LTGRAY_BRUSH浅灰色刷子NULL_BRUSH空刷子WHITE_BRUSH白色刷子BLACK_PEN黑色画笔NULL_PEN空画笔WHITE_PEN白色画笔ANSI_FIXED_FONT采用windows（ANSI）字符集的等宽字体ANSI_VAR_FONT采用windows（ANSI）字符集的不等宽字体DEVICE_DEFAULT_FONT设备使用的默认字体（NT）DEFAULT_GUI_FONT用户界面的默认字体，包括菜单和对话框字体（Windows95）OEM_FIXED_FONTOEM字符集的固有字体SYSTEM_FONT屏幕系统字体。这是用于菜单、对话框等等的默认不等宽字体SYSTEM_FIXED_FONT屏幕系统字体。这是用于菜单、对话框等等的默认等宽字体（在windows3.0之前使用）DEFAULT_PALETTE默认调色板; .DLL命令GetWindow,整数型,"user32","GetWindow",,获得一个窗口的句柄，该窗口与某源窗口有特定的关系　由wCmd决定的一个窗口的句柄。如没有找到相符窗口，或者遇到错误，则返回零值。会设置GetLastError .参数hwnd,整数型,,源窗口 .参数wCmd,整数型,,指定结果窗口与源窗口的关系，它们建立在下述常数基础上：;GW_CHILD：寻找源窗口的第一个子窗口;GW_HWNDFIRST：为一个源子窗口寻找第一个兄弟（同级）窗口，或寻找第一个顶级窗口;GW_HWNDLAST：为一个源子窗口寻找最后一个兄弟（同级）窗口，或寻找最后一个顶级窗口;GW_HWNDNEXT：为源窗口寻找下一个兄弟窗口;GW_HWNDPREV：为源窗口寻找前一个兄弟窗口;GW_OWNER：寻找窗口的所有者; .DLL命令LocalSize_LOGFONT,整数型,"kernel32","LocalSize",,返回本地内存块大小　 .参数hMem,LOGFONT,传址 .DLL命令DeleteObject,整数型,"gdi32","DeleteObject",,用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放　非零表示成功，零表示失败 .参数hObject,整数型,,一个GDI对象的句柄;