易语言控制台时钟源码

系统结构:子程序1,Sleep,循环事件_,消息循环_,暂停_,停止_,创建时钟_,运行_,TranslateMessage,GetMessage,DispatchMessage,CreateThread,ResumeThread,SuspendThread,TerminateThread,Sleep,Module32First,CloseHandle,Process32Next,Process32First,CreateToolhelp32Snapshot,取长路径名,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 子程序1
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   Sleep
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 循环事件_
           |  |
           |  |------ 消息循环_
           |  |
           |  |------ 暂停_
           |  |
           |  |------ 停止_
           |  |
           |  |------ 创建时钟_
           |  |
           |  |------ 运行_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   ResumeThread
           |  |
           |  |---[dll]------   SuspendThread
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   Sleep
           |  |
           |  |---[dll]------   Module32First
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   Process32Next
           |  |
           |  |---[dll]------   Process32First
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   取长路径名

调用的DLL命令:

.DLL命令 Sleep, 整数型, "kernel32.dll", "Sleep", , 时钟代码集
    .参数 延迟秒数, 整数型, , dwMilliseconds

调用的DLL命令:

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

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

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

.DLL命令 CreateThread, 整数型, , "CreateThread", , 时钟代码,创建句柄
    .参数 security, 整数型
    .参数 栈大小, 整数型
    .参数 子程序, 子程序指针
    .参数 参数, 整数型
    .参数 标志, 整数型
    .参数 线程ID, 整数型, 传址

.DLL命令 ResumeThread, 整数型, "kernel32.dll", "ResumeThread", , 时钟代码集,运行
    .参数 线程句柄, 整数型

.DLL命令 SuspendThread, 整数型, , "SuspendThread", , 时钟代码集,暂停
    .参数 线程句柄, 整数型

.DLL命令 TerminateThread, 整数型, "kernel32.dll", "TerminateThread", , 时钟代码集,中止线程
    .参数 线程句柄, 整数型
    .参数 退出代码, 整数型, , 传入0值

.DLL命令 Sleep, 整数型, "kernel32.dll", "Sleep", , 时钟代码集
    .参数 延迟秒数, 整数型, , dwMilliseconds

.DLL命令 Module32First, 整数型, , "Module32First", , 检查父进程代码
    .参数 hSnapshot, 整数型
    .参数 lpme, MODULEENTRY32

.DLL命令 CloseHandle, , , "CloseHandle", , 检查父进程代码
    .参数 hObject, 整数型

.DLL命令 Process32Next, 整数型, , "Process32Next", , 检查父进程代码
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 Process32First, 整数型, , "Process32First", , 检查父进程代码
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot", , 检查父进程代码
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型

.DLL命令 取长路径名, 整数型, "kernel32.dll", "GetLongPathNameA", , 检查父进程代码
    .参数 短路径名, 文本型
    .参数 长路径名, 文本型
    .参数 长路径长度, 整数型