Главная |
Delphi |
WinAPIУлучшенная функция SleepФункция Delay() позволяет доступ к другим событиям в течении задержки. Функция Win32 API Sleep() игнорирует события, возможно она должна называться DeepSleep() // задержка в миллисекундах, используется системное время, также используется
// Application.ProcessMessages, которая позволяет доступ к другим событиям
// во время задержки, функция Win32 API Sleep() этого не дает
//
procedure Delay(msecs: integer);
var
FirstTickCount: longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
Автор статьи http://daniweb.com |
|
||
Copyright (c) Авраменко С. Н. 2008. |