Консоль и таймер

← →
loooo1 (2006-11-23 09:52) [0]

Возможно ли в консольном приложении на дельфи организовать таймер?

← →
RWolf © (2006-11-23 09:57) [1]

можно. API-шный таймер может вызывать callback при срабатывании.

← →
Anatoly Podgoretsky © (2006-11-23 10:03) [2]

> loooo1 (23.11.2006 09:52:00) [0]

Возможно

← →
loooo1 (2006-11-23 10:22) [3]

Ну сочинил я полную ерунду одним словом:
program Project1; {$APPTYPE CONSOLE} uses SysUtils, Windows, Messages; var msg: TMsg; begin SetTimer(0, 1, 2000, 0); while(GetMessage(msg, 0, 0, 0)) do if msg.Message = WM_TIMER then begin MessageBoxA(0, "", "", 0); Break; end; KillTimer(0, 1); end.
Видимо такой подход далеко не корректен? И как осуществить в такой ситуации коллбэк?

← →
Сергей М. © (2006-11-23 10:47) [4]

> как осуществить в такой ситуации коллбэк?

А никак.
Чтобы осуществить колбэк, нужно указать адрес колбэк-процедуры 4-ым параметром ф-ции SetTimer() и организовать цикл иного вида:

while(GetMessage(msg, 0, 0, 0)) do
DispatchMessage(Msg);

чтобы принимать сообщения, необходимо сначала создать окно. Без него - только callback. Как - написано в справке по SetTimer.

А чем, кстати, TTimer не угодил ?

Консоль и таймер Найти похожие ветки