问:如何写一个延时程序,望有代码!在线等,急!

Question

问:如何写一个延时程序,望有代码!在线等,急!

Answer 1

Sleep(1000); //延时1秒
//另外一个延时
var timeOut:DWORD;
begin
timeOut:=Gettickcount;
while (GettickCount-timeOut)<=1000 do
  Application.ProcessMessage;

Answer 2

Sleep procedure
------------------------
Delay program execution for a specified number of microseconds.UnitSysUtilsCategoryprogram controlprocedure Sleep(milliseconds: Cardinal);{$IFDEF MSWINDOWS} stdcall; {$ENDIF}DescriptionSleep pauses program executions as specified by the millseconds parameter. Under Windows, Sleep is just a link to the Sleep function in the system API. Under Linux, Sleep calls the usleep library routine.

Answer 3

就一句代码就可：
sleep(n);          //n为千分之一秒

Answer 4

procedure Delay(dwMilliseconds: Longint); 
var 
  iStart, iStop: DWORD; 
begin 
  iStart := GetTickCount; 
  repeat 
    iStop := GetTickCount; 
    Application.ProcessMessages; 
  until (iStop - iStart) >= dwMilliseconds; 
end;