易语言动态载入DLL中的菜单源码

系统结构:菜单句柄,载入动态链接库_,载入菜单_,SetMenu,释放动态链接库_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 菜单句柄
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   载入动态链接库_
           |  |
           |  |---[dll]------   载入菜单_
           |  |
           |  |---[dll]------   SetMenu
           |  |
           |  |---[dll]------   释放动态链接库_

调用的DLL命令:

.DLL命令 载入动态链接库_, 整数型, "kernel32.dll", "LoadLibraryA", , 载入指定的动态链接库，并将它映射到当前进程使用的地址空间
    .参数 动态链接库名称, 文本型, , lpLibFileName,指定要载入的动态链接库的名称

.DLL命令 载入菜单_, 整数型, "user32.dll", "LoadMenuA", , 从指定的模块或应用程序实例中载入一个菜单
    .参数 模块句柄, 整数型, , hInstance,一个动态链接库的模块句柄
    .参数 菜单标识, , , lpString,参见相关帮助

.DLL命令 SetMenu, 整数型, "user32.dll"
    .参数 hwnd, 整数型
    .参数 hMenu, 整数型

.DLL命令 释放动态链接库_, 整数型, "kernel32", "FreeLibrary", , 释放指定的动态链接库，它们早先是用LoadLibrary ;API函数装载的  非零表示成功，零表示失败。会设置GetLastError
    .参数 s, 整数型