Текущий архив: 2006.12.10;
Скачать: CL | DM;
Вниз
Консоль и таймер Найти похожие ветки
← →
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);
← →
RWolf © (2006-11-23 10:49) [5]чтобы принимать сообщения, необходимо сначала создать окно. Без него - только callback. Как - написано в справке по SetTimer.
← →
Сергей М. © (2006-11-23 10:49) [6]А чем, кстати, TTimer не угодил ?
Страницы: 1 вся ветка
Текущий архив: 2006.12.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.06 c
