程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 延時程序,單片機延時程序

延時程序,單片機延時程序

編輯:Delphi

延時程序,單片機延時程序


 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);    
 9     while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) 
10     do    
11     begin   
12         Application.ProcessMessages; 
13         msecs := Tick - GetTickcount;   
14         end; 
15     finally    
16     CloseHandle(Event);
17     end;
18 end;
19  
20  

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved