|
发表于 2011-5-30 21:19:57
|
显示全部楼层
辽宁省沈阳市
fsjoe 发表于 2011-5-30 21:11
延时,延迟,等待都试过了.....
结果都是一样....
我也说了.这个只是测试程序.目的是为了增加问题出来的机 ...
.版本 2
.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
.参数 hTimer, 整数型
.参数 pDueTime, LARGE_INTEGER
.参数 lPeriod, 整数型
.参数 pfnCompletionRoutine, 整数型
.参数 lpArgToCompletionRoutine, 整数型
.参数 fResume, 逻辑型
.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
.参数 lpTimerAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 lpTimerName, 整数型
.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
.参数 hObject, 整数型
.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
.参数 nCount, 整数型
.参数 pHandles, 整数型, 传址
.参数 fWaitAll, 逻辑型
.参数 dwMilliseconds, 整数型
.参数 dwWakeMask, 整数型
.版本 2
.数据类型 LARGE_INTEGER
.成员 QuadPart, 长整数型, , , 占用8个字节
.版本 2
.子程序 高精度等待, , 公开
.参数 微秒, 整数型, , 1000微秒 = 1毫秒 ; 1000毫秒 = 1秒
.局部变量 hTimer, 整数型
.局部变量 int64, LARGE_INTEGER
int64.QuadPart = -10 × 微秒
hTimer = CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
.判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, #INFINITE, #QS_ALLINPUT) ≠ #WAIT_OBJECT_0)
处理事件 ()
.判断循环尾 ()
CloseHandle (hTimer)
用高精度等待试试 这个是1000=1毫秒 |
|