delphi延时 4种方法

 

1. /////////////////挂起，不占CPU
2. sleep
3. //////////////////不挂起,占cpu
4. procedure Delay(msecs:integer);
5. var
6. FirstTickCount:longint;
7. begin
8. FirstTickCount:=GetTickCount;
9. repeat
10. Application.ProcessMessages;
11. until ((GetTickCount-FirstTickCount) >= Longint(msecs));
12. end;
13. ////////////////////////////////////////// 定时器
14. procedure timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;
15. begin
16. showmessage('到点了');
17. killtimer(handle,identer);//关闭定时器
18. end;
20. //其中的identer是定时器的句柄
21. procedure TForm1.Button1Click(Sender: TObject);
22. var
23. identer:integer;
24. begin
25.    identer:=settimer(0,0,2000,@timerfun);
26.    if identer=0 then exit; //定时器没有创建成功。
27. end;
28. ////////////////////////////////////////////////// 不占CPU不挂起
29. function TForm1.HaveSigned(MaxWaitTime: Cardinal): Boolean;
30. var   I:Integer;
31. var   WaitedTime:Cardinal;
32. begin
33.           WaitedTime:=0;
34.           while      (WaitedTime<MaxWaitTime)   do
35.           begin
36.                   SleepEx(100,False);
37.                   Inc(WaitedTime,100);
38.                   Application.ProcessMessages ;
39.           end
41. end;