易语言加载资源窗口源码

系统结构:加载内存DLL0,取地址字节集型,Snowday,Messageform,取低十六位,API_取模块句柄,API_载入图标,InitCommonControls,DialogBoxParam,发送消息,MessageBoxA,EndDialog,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 加载内存DLL0
           |  |
           |  |------ 取地址字节集型
           |  |
           |  |------ Snowday
           |  |
           |  |------ Messageform
           |  |
           |  |------ 取低十六位
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_取模块句柄
           |  |
           |  |---[dll]------   API_载入图标
           |  |
           |  |---[dll]------   InitCommonControls
           |  |
           |  |---[dll]------   DialogBoxParam
           |  |
           |  |---[dll]------   发送消息
           |  |
           |  |---[dll]------   MessageBoxA
           |  |
           |  |---[dll]------   EndDialog

  

调用的DLL命令:

.DLL命令 API_取模块句柄, 整数型, "kernel32.dll", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄　如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 整数型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;  

.DLL命令 API_载入图标, 整数型, "user32.dll", "LoadIconA", , 从指定的模块或应用程序实例中载入一个图标。其中，LoadIconBynum是LoadIcon函数的类型security声明　执行成功则返回已载入的图标的句柄；零表示失败。会设置GetLastError
    .参数 实例句柄, 整数型
    .参数 图标标识, 整数型

.DLL命令 InitCommonControls, , "comctl32.dll", "InitCommonControls"

.DLL命令 DialogBoxParam, 整数型, , "DialogBoxParamA"
    .参数 hInstance, 整数型
    .参数 lpName, 整数型
    .参数 hWndParent, 整数型
    .参数 lpDialogFunc, 子程序指针
    .参数 dwInitParam, 整数型

.DLL命令 发送消息, 整数型, "user32.dll", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 MessageBoxA
    .参数 a, 整数型
    .参数 b, 文本型
    .参数 c, 文本型
    .参数 d, 整数型

.DLL命令 EndDialog, 整数型, , "EndDialog"
    .参数 hwnd, 整数型
    .参数 nResult, 整数型