易语言添加系统菜单源码

系统结构:SubClass1_WndMessage,AppendMenu,CallWindowProc,GetSystemMenu,SetWindowLong1,SetWindowLong2,GetWindowLong,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ SubClass1_WndMessage
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   AppendMenu
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetSystemMenu
           |  |
           |  |---[dll]------   SetWindowLong1
           |  |
           |  |---[dll]------   SetWindowLong2
           |  |
           |  |---[dll]------   GetWindowLong

调用的DLL命令:

.DLL命令 AppendMenu, , "user32", "AppendMenuA"
    .参数 hMenu, 整数型
    .参数 wFlags, 整数型
    .参数 wIDNewItem, 整数型
    .参数 lpNewItem, 文本型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 OldWindowProc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 IParam, 整数型

.DLL命令 GetSystemMenu, 整数型, "user32", "GetSystemMenu"
    .参数 hwnd, 整数型
    .参数 bRevert, 整数型

.DLL命令 SetWindowLong1, , "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 SetWindowLong2, , "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型