2017年3月9日
延时程序
摘要： procedure delay(msecs: integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) ... 阅读全文
posted @ 2017-03-09 09:11 宝兰 阅读(168) 评论(0) 推荐(0)