[NovaC]

Доброе время суток !
Как в консольном приложении для Timer.OnTimer организовать:
procedure Timer1Timer(Sender: TObject);
либо что-то вроде паскалевского Delay() ???
Заранее спасибо за ответ . . .

[Aristarh Dark]

Если нужно организовать задержку (паскалевский delay()), то можно сделать так:

Код:

uses Windows
...
//Задержка в 0,2 сек
Windows.SleepEx(200,false)
...

[NovaC]

за что в Windows.SleepEx(200,false) отвечает false?

[Aristarh Dark]

А что справку слабо почитать???

Specifies whether the function may terminate early due to an I/O completion callback function or an APC. If bAlertable
is FALSE, the function does not return until the time-out period has elapsed. If an I/O completion callback occurs, the function does not return and the I/O completion function is not executed. If an APC is queued to the thread, the function does not return and the APC function is not executed.
If bAlertable is TRUE and the thread that called this function is the same thread that called the extended I/O function (
ReadFileEx or WriteFileEx), the function returns when either the time-out period has elapsed or when an I/O completion callback function occurs. If an I/O completion callback occurs, the I/O completion function is called. If an APC is queued to the thread (QueueUserAPC), the function returns when either the timer-out period has elapsed or when the APC function is called.

Думаю переводить не нужно.