可附加插件的易程序例程

系统结构:新窗口程序,取窗口特征,执行窗口程序,取菜单条句柄,取子菜单句柄,置窗口特征,取系统菜单,添加菜单项,取菜单项目ID,取当前进程,删除菜单项目,取菜单标题,

======窗口程序集1
           |  |
           |  |------ 新窗口程序
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _关于_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口特征
           |  |
           |  |---[dll]------   执行窗口程序
           |  |
           |  |---[dll]------   取菜单条句柄
           |  |
           |  |---[dll]------   取子菜单句柄
           |  |
           |  |---[dll]------   置窗口特征
           |  |
           |  |---[dll]------   取系统菜单
           |  |
           |  |---[dll]------   添加菜单项
           |  |
           |  |---[dll]------   取菜单项目ID
           |  |
           |  |---[dll]------   取当前进程
           |  |
           |  |---[dll]------   删除菜单项目
           |  |
           |  |---[dll]------   取菜单标题

调用的DLL命令:

.DLL命令 取窗口特征, 子程序指针, , "GetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要取的特征, 整数型

.DLL命令 执行窗口程序, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

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

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

.DLL命令 置窗口特征, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持

.DLL命令 取系统菜单, 整数型, , "GetSystemMenu"
    .参数 窗口句柄, 整数型
    .参数 取原始菜单, 逻辑型

.DLL命令 添加菜单项, 逻辑型, , "InsertMenuA"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型
    .参数 标志, 整数型
    .参数 ID, 整数型
    .参数 标题, 文本型

.DLL命令 取菜单项目ID, 整数型, , "GetMenuItemID"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 取当前进程, 整数型, , "GetCurrentProcess"

.DLL命令 删除菜单项目, 逻辑型, , "RemoveMenu"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型
    .参数 标志, 整数型

.DLL命令 取菜单标题, 文本型, , "GetMenuStringA"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型
    .参数 名称, 文本型
    .参数 缓冲区, 整数型
    .参数 标志, 整数型