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
2023/5/11 23:17:34
1KB
延时
1