摘要： 1 procedure delay(msecs: integer); 2 var 3 Tick: DWord; 4 Event: THandle; 5 begin 6 Event := CreateEvent(nil, False, False, nil); 7 try 8 Tick := GetTickCount + DWord(msecs); ... 阅读全文