弹出另外一个窗口的菜单易语言源码

系统结构:弹出菜单_按窗口句柄,GetMenu,GetSubMenu,TrackPopupMenu,GetCursorPos,

======窗口程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_位置被改变
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 弹出菜单_按窗口句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetMenu
           |  |
           |  |---[dll]------   GetSubMenu
           |  |
           |  |---[dll]------   TrackPopupMenu
           |  |
           |  |---[dll]------   GetCursorPos

调用的DLL命令:

.DLL命令 GetMenu, 整数型, "user32", "GetMenu", , 取得窗口中一个菜单的句柄　依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零
    .参数 hwnd, 整数型, , 窗口句柄。对于vb，这应该是一个窗体句柄。注意可能不是子窗口的句柄;

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

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

.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos", , 获取鼠标指针的当前位置　非零表示成功，零表示失败。会设置GetLastError
    .参数 lpPoint, POINTAPI, , POINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构;