易语言取外部菜单源码

系统结构:取菜单句柄,取子菜单句柄,取菜单标题,GetMenuStringA,GetMenu,GetMenuItemID,GetSubMenu,MenuItemFromPoint,GetCursorPos,WindowFromPoint,IsMenu,IsWindow,GetTopWindow,GetDesktopWindow,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取菜单句柄
           |  |
           |  |------ 取子菜单句柄
           |  |
           |  |------ 取菜单标题
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetMenuStringA
           |  |
           |  |---[dll]------   GetMenu
           |  |
           |  |---[dll]------   GetMenuItemID
           |  |
           |  |---[dll]------   GetSubMenu
           |  |
           |  |---[dll]------   MenuItemFromPoint
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   IsMenu
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   GetTopWindow
           |  |
           |  |---[dll]------   GetDesktopWindow

调用的DLL命令:

.DLL命令 GetMenuStringA, 整数型, "user32.dll", "GetMenuStringA"
    .参数 菜单句柄, 整数型
    .参数 项目索引, 整数型
    .参数 菜单标题, 文本型
    .参数 标题长度, 整数型
    .参数 操作标志, 整数型

.DLL命令 GetMenu, 整数型, , "GetMenu", , 取指定窗口的菜单条句柄
    .参数 窗口句柄, 整数型

.DLL命令 GetMenuItemID, 整数型, , "GetMenuItemID", , 失败返回-1
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 GetSubMenu, 整数型, , "GetSubMenu"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 MenuItemFromPoint, 整数型, , "MenuItemFromPoint"
    .参数 窗口句柄
    .参数 菜单句柄
    .参数 x
    .参数 y

.DLL命令 GetCursorPos, 整数型, "user32.dll", "GetCursorPos", 公开, 取鼠标位置_
    .参数 POINT, POINT

.DLL命令 WindowFromPoint, 整数型, , "WindowFromPoint"
    .参数 x
    .参数 y

.DLL命令 IsMenu, 整数型, , "IsMenu", , 错误=0
    .参数 HMENU

.DLL命令 IsWindow, 整数型, "user32.dll", "IsWindow", 公开, 判断一个窗口句柄是否有效(非零表示成功，零表示失败)
    .参数 窗口句柄, 整数型, , 待检查窗口的句柄

.DLL命令 GetTopWindow, 整数型, "user32.dll", "GetTopWindow", 公开, ,取列表顶级窗口_
    .参数 寻找位置, 整数型

.DLL命令 GetDesktopWindow, 整数型, "user32.dll", "GetDesktopWindow", 公开, 返回屏幕句柄