彗星载入线程窗口模块易语言源码

系统结构:彗星载入线程窗口,彗星销毁线程窗口,窗口线程,OnMessage,消息循环,CreateThread,GetMessage,DispatchMessage,TranslateMessage,PostQuitMessage,CallWindowProc,GetProp,SetProp,SetWindowLong,SendMessage,TerminateThread,EnableWindow,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 彗星载入线程窗口
           |  |
           |  |------ 彗星销毁线程窗口
           |  |
           |  |------ 窗口线程
           |  |
           |  |------ OnMessage
           |  |
           |  |------ 消息循环
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   EnableWindow

调用的DLL命令:

.DLL命令 CreateThread, 整数型, "kernel32", "CreateThread", , 建立新的线索　
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 整数型
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA", , 从线索消息队列中返回一条消息　
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA", , 向窗口发送消息
    .参数 lpMsg, MSG

.DLL命令 TranslateMessage, 整数型, "user32", "TranslateMessage", , 转换虚拟关键字消息
    .参数 lpMsg, MSG

.DLL命令 PostQuitMessage, , "user32", "PostQuitMessage", , 通知WINDOWS线索将中断　
    .参数 nExitCode, 整数型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetProp, 整数型, "user32", "GetPropA", , 从窗口属性表列中返回数据句柄　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

.DLL命令 SetProp, 整数型, "user32", "SetPropA", , 增加或修改属性列项　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

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

.DLL命令 TerminateThread, 整数型, "kernel32", "TerminateThread", , 中止线索　
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 EnableWindow, 整数型, "user32", "EnableWindow", , 在指定的窗口里允许或禁止所有鼠标及键盘输入（在vb里使用：在vb窗体和控件中使用Enabled属性）　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 窗口句柄
    .参数 fEnable, 整数型, , 非零允许窗口，零禁止;