会python真的可以为所欲为0(回)
347天前
这里还有人吗1(回)
532天前这里还有人吗0(回)
532天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
757天前到处都是羊，不想上班0(回)
837天前
鸽子
0(回)
841天前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; |
