AI时代，找源码已成为过去式，纪念我过去的十年0(回)
80天前
还有人吗2(回)
98天前会python真的可以为所欲为0(回)
578天前
这里还有人吗2(回)
763天前这里还有人吗0(回)
763天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
987天前procedure Delay(msecs: integer); //延时 毫秒 |
var |
Tick: DWord; |
Event: THandle; |
begin |
Event := CreateEvent(nil, False, False, nil); |
try |
try |
Tick := GetTickCount + DWord(msecs); |
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do |
begin |
Application.ProcessMessages; |
msecs := Tick - GetTickcount; |
end; |
except |
on e: Exception do |
end; |
finally |
CloseHandle(Event); |
end; |
end; |
