www.demi-s.narod.ru

Delphi
Статьи:

· Интерфейс

· WinAPI

· Компоненты

· Базы данных

· ShellAPI



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


Hosted by uCoz