易语言快速启动设置源码

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

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 菜单重载
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ _按钮_新增_被单击
           |  |
           |  |------ _按钮_保存_被单击
           |  |
           |  |------ _按钮_删除_被单击
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ 新窗口程序
           |  |
           |  |------ _按钮_浏览_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _重启_被选择
           |  |
           |  |------ _关机_被选择
           |  |
           |  |------ _注销_被选择
           |  |
           |  |------ _休眠_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口特征
           |  |
           |  |---[dll]------   执行窗口程序
           |  |
           |  |---[dll]------   取菜单条句柄
           |  |
           |  |---[dll]------   取子菜单句柄
           |  |
           |  |---[dll]------   置窗口特征
           |  |
           |  |---[dll]------   取系统菜单
           |  |
           |  |---[dll]------   添加菜单项
           |  |
           |  |---[dll]------   取菜单项目ID
           |  |
           |  |---[dll]------   取当前进程
           |  |
           |  |---[dll]------   删除菜单项目
           |  |
           |  |---[dll]------   TrackPopupMenuBynum

调用的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命令 TrackPopupMenuBynum, , "user32", "TrackPopupMenu"
    .参数 hMenu, 整数型
    .参数 wFlags, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nReserved, 整数型
    .参数 hwnd, 整数型
    .参数 lprc, 整数型