易语言以模态方式载入窗口源码

系统结构:载入_模态,WinProc,DialogProc,CreateWindowEx,RegisterClassEx,DefWindowProc,GetModuleHandle,LoadIcon,LoadCursor,EnableWindow,GetMessage,DispatchMessage,TranslateMessage,SetForegroundWindow,PostQuitMessage,SetWindowLong,GetParent,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ 载入_模态
           |  |
           |  |
======程序集1
           |  |
           |  |------ WinProc
           |  |
           |  |------ DialogProc
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   RegisterClassEx
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   EnableWindow
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   SetForegroundWindow
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetParent

调用的DLL命令:

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA"
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 RegisterClassEx, 逻辑型, "user32", "RegisterClassExA"
    .参数 pcWndClassEx, WNDCLASSEX

.DLL命令 DefWindowProc, 整数型, "user32", "DefWindowProcA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA"
    .参数 lpModuleName, 文本型

.DLL命令 LoadIcon, 整数型, "user32", "LoadIconA"
    .参数 hInstance, 整数型
    .参数 lpIconName

.DLL命令 LoadCursor, 整数型, "user32", "LoadCursorA"
    .参数 hInstance, 整数型
    .参数 lpCursorName

.DLL命令 EnableWindow, 逻辑型, "user32", "EnableWindow"
    .参数 hwnd, 整数型
    .参数 fEnable, 逻辑型

.DLL命令 GetMessage, 逻辑型, "user32", "GetMessageA"
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA"
    .参数 lpMsg, MSG

.DLL命令 TranslateMessage, 整数型, "user32", "TranslateMessage"
    .参数 lpMsg, MSG

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

.DLL命令 PostQuitMessage, , "user32", "PostQuitMessage"
    .参数 nExitCode, 整数型

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

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