上传者: ljklxlj
|
上传时间:2023/5/11 23:17:34
|
文件大小:1KB
|
文件类型:PAS
Delphi的延时函数替换sleep
proceduredelay(msecs:integer);varTick:DWord;Event:THandle;beginEvent:=CreateEvent(nil,False,False,nil);tryTick:=GetTickCount+DWord(msecs);while(msecs>0)and(MsgWaitForMultipleObjects(1,Event,False,msecs,QS_ALLINPUT)WAIT_TIMEOUT)dobeginAppl
本软件ID:14184707