易语言API热键框源码

系统结构:设置字体,创建热键框,热键框置按键,热键框取按键,SendMessage,SetFocus,CreateWindowEx,DeleteObject,CreateFont,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 设置字体
           |  |
           |  |------ 创建热键框
           |  |
           |  |------ 热键框置按键
           |  |
           |  |------ 热键框取按键
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SetFocus
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   CreateFont

调用的DLL命令:

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA", 公开
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetFocus, 整数型, "user32.dll", "SetFocus", 公开
    .参数 hwnd, 整数型

.DLL命令 CreateWindowEx, 整数型, , "CreateWindowExA", 公开
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", 公开
    .参数 对象句柄, 整数型, ,  

.DLL命令 CreateFont, 整数型, "gdi32.dll", "CreateFontA", 公开
    .参数 nHeight, 整数型, , IfHeight
    .参数 nWidth, 整数型, , IfWidth
    .参数 nEscapement, 整数型, , IfEscapement
    .参数 nOrientation, 整数型, , IfOrientation
    .参数 fnWeight, 整数型, , IfWeight
    .参数 fdwItalic, 整数型, , IfItalic
    .参数 fdwUnderline, 整数型, , IfUnderline
    .参数 fdwStrikeOut, 整数型, , IfStrikeOut
    .参数 fdwCharSet, 整数型, , IfCharSet
    .参数 OutputPrecision, 整数型, , IfOutputPrecision
    .参数 ClipPrecision, 整数型, , IfClipPrecision
    .参数 Quality, 整数型, , IfQuality
    .参数 PitchAndFamily, 整数型, , IfPitchAndFamily
    .参数 lpszFace, 文本型, , IfFaceName;