易语言自绘右键菜单例程源码

系统结构:子程序,设置信息,取窗口信息,重画菜单,将消息传答窗口函数,添加菜单项,创建弹出式菜单,显示位置,取子菜单句柄,取条目字串,DLL命令1,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 子程序
           |  |
           |  |------ __启动窗口_鼠标右键被按下
           |  |
           |  |------ _菜单1_被选择
           |  |
           |  |------ _菜单2_被选择
           |  |
           |  |------ _菜单3_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   设置信息
           |  |
           |  |---[dll]------   取窗口信息
           |  |
           |  |---[dll]------   重画菜单
           |  |
           |  |---[dll]------   将消息传答窗口函数
           |  |
           |  |---[dll]------   添加菜单项
           |  |
           |  |---[dll]------   创建弹出式菜单
           |  |
           |  |---[dll]------   显示位置
           |  |
           |  |---[dll]------   取子菜单句柄
           |  |
           |  |---[dll]------   取条目字串
           |  |
           |  |---[dll]------   DLL命令1

调用的DLL命令:

.支持库 eAPI

.DLL命令 设置信息, 整数型, , "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息，指定数据的前一个值。
    .参数 窗口句柄, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 属性, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息, 子程序指针, , 由nIndex指定的窗口信息的新值

.DLL命令 取窗口信息, 整数型, , "GetWindowLongA"
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：GWL_EXSTYLE：扩展窗口样式GWL_STYLE：窗口样式GWL_WNDPROC：该窗口的窗口函数的地址GWL_HINSTANCE：拥有窗口的实例的句柄GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值GWL_ID：对话框中一个子窗口的标识符GWL_USERDATA：含义由应用程序规定DWL_DLGPROC：这个窗口的对话框函数地址DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值DWL_USER：含义由应用程序规定

.DLL命令 重画菜单, 整数型, , "DrawMenuBar", , 为指定的窗口重画菜单。用api函数改变一个窗口菜单的内容时，就要用到这个函数。
    .参数 窗口句柄, 整数型, , 要重画菜单栏的窗口的句柄

.DLL命令 将消息传答窗口函数, 整数型, , "CallWindowProcA", , 将消息传答窗口函数
    .参数 lpPrevWndFunc, 整数型
    .参数 窗口句柄, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 添加菜单项, 整数型, , "AppendMenuA", , 在指定的菜单里添加一个菜单项
    .参数 菜单句柄, 整数型, , 菜单句柄
    .参数 菜单常数标志, 整数型, , 参考ModifyMenu函数中的菜单常数标志定义表，其中列出了允许使用的所有常数
    .参数 新菜单条目ID, 整数型, , 指定菜单条目的新命令ID。如果在wFlags参数中指定了MF_POPUP字段，那么这应该是指向一个弹出式菜单的句柄
    .参数 标志值, 文本型, , （相应的vb声明见注解），如果在wFlags参数中指定了MF_STRING标志，这就代表在菜单中设置的字串。如设置了MF_BITMAP标志，这就代表一个Long型变量，其中包含了一个位图句柄。如设置了MF_OWNERDRAW，这个值就会包括在DRAWITEMSTRUCT和MEASUREITEMSTRUCT结构中，在条目需要重画的时候由windows发送出去

.DLL命令 创建弹出式菜单, 整数型, "user32", "CreatePopupMenu", , 如成功，返回一个菜单句柄；零意味着错误

.DLL命令 显示位置, 整数型, "user32", "TrackPopupMenu", , 非零表示成功，零表示失败。
    .参数 hMenu, 整数型, , 弹出式菜单的句柄
    .参数 wFlags, 整数型, , 位置标志和鼠标追踪标志的组合
    .参数 x, 整数型, , 这个点指定了弹出式菜单在屏幕坐标系统中的位置
    .参数 y, 整数型, , 这个点指定了弹出式菜单在屏幕坐标系统中的位置
    .参数 nReserved, 整数型, , 未使用，设为零
    .参数 hwnd, 整数型, , 用于接收弹出式菜单命令的窗口的句柄。应该使用窗体的窗口句柄——窗体中有一个菜单能象弹出式菜单那样接收相同的命令ID集
    .参数 lprc, 矩形数据, , Rect，用屏幕坐标定义的一个矩形，如用户在这个矩形的范围内单击，则弹出式菜单不会关闭。如单击弹出式菜单之外的任何一个地方，则会关闭菜单。可以设为NULL;  

.DLL命令 取子菜单句柄, 整数型, , "GetSubMenu", , 取得一个弹出式菜单的句柄，它位于菜单中指定的位置。位于指定位置的弹出式菜单的句柄（如果有的话）；否则返回零
    .参数 菜单的句柄, 整数型, , 菜单的句柄
    .参数 位置, 整数型, , 条目在菜单中的位置。第一个条目的编号为0

.DLL命令 取条目字串, 整数型, , "GetMenuStringA", , 取得指定菜单条目的字串，在lpString中返回的字串的长度（不包括空中止字符）。零意味着出错
    .参数 菜单句柄, 整数型
    .参数 条目位置, 整数型, , 欲接收的菜单条目的标识符。如果在wFlags参数中设置了MF_BYCOMMAND标志，这个参数就用于指定要改变的菜单条目的命令ID。如果设置的是MF_BYPOSITION标志，这个参数就用于指定条目在菜单中的位置（第一个条目的位置为0）
    .参数 缓冲区, 文本型, , 指定一个预先定义好的字串缓冲区，以便为菜单条目装载字串
    .参数 缓冲区长度, 整数型, , 载入lp缓冲区中的最大字符数量+1
    .参数 标志, 整数型, , 常数MF_BYCOMMAND或MF_BYPOSITION，取决于wID参数的设置

.DLL命令 DLL命令1