[转载] Delphi不占CPU的延时函数

Delphi不占CPU的延时函数

function Delay(MaxWaitTime: Cardinal): Boolean;
   var   I:Integer;
   var   WaitedTime:Cardinal;
begin
   WaitedTime:=0;
   while      (WaitedTime
   begin
      SleepEx(100,False);
      Inc(WaitedTime,100);
      Application.ProcessMessages ; //这个其实是消息分发
   end
end;

 

---------------

是我转载的，其实这个方式也不太好，大家看看