>> Процедура Delay (как в паскале)

Зависимости: Forms,Windows,SysUtils
Автор:       demon-777, demon-777@yandex.ru, Питер
Copyright:   Выдрана из RxLib
Дата:        23 мая 2002 г.
***************************************************** }

{Delay, не загружающий процессор}

procedure Delay(Value: Cardinal);
var
  F, N: Cardinal;
begin
  N := 0;
  while N <= (Value div 10) do
  begin
    SleepEx(1, True);
    Application.ProcessMessages;
    Inc(N);
  end;
  F := GetTickCount;
  repeat
    Application.ProcessMessages;
    N := GetTickCount;
  until (N - F >= (Value mod 10)) or (N < F);
end;
Пример использования: 
Delay(1000); //Задержка на одну секунду

DWORD WINAPI TypingThread(LPVOID arg)
{
	for(int i=0; i<5; i++){
		printf("Xaxaxa\r\n");
		Sleep(2000);
	}

	printf("thread end\r\n");
	return 0;
}


int _tmain(int argc, _TCHAR* argv[])
{
	HANDLE  hthread;
	DWORD	tid;
		
	hthread = CreateThread(0,0,TypingThread,NULL,0,&tid);
	
	for(int i=0; i<15; i++){
		printf("tmain()\r\n");
		Sleep(1000);
	}

	printf("program end\r\n");
	return 0;
}

   Sleep(500);
   Application.ProcessMessages;