易语言完整延时模块源码

系统结构:完整延时,延时处理,高精度等待_改良版,高精度等待_原版,SetWaitableTimer,CreateWaitableTimerA,CancelWaitableTimer,MsgWaitForMultipleObjects,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 完整延时
           |  |
           |  |------ 延时处理
           |  |
           |  |------ 高精度等待_改良版
           |  |
           |  |------ 高精度等待_原版
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWaitableTimer
           |  |
           |  |---[dll]------   CreateWaitableTimerA
           |  |
           |  |---[dll]------   CancelWaitableTimer
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects

调用的DLL命令:

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型

.DLL命令 CancelWaitableTimer, 逻辑型, , "CancelWaitableTimer"
    .参数 hTimer, 整数型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型