Таймер в консоли

← →
Windows © (2006-06-20 20:00) [0]

Подскажите, как создать управляемый таймер в консольном приложении, чтобы он работал одновременно с самой программой...
Сдается мне, что это невозможно, но я могу ошибаться...

← →
Eraser © (2006-06-20 22:19) [1]

> [0] Windows © (20.06.06 20:00)

необходимо создать доп. поток и в нем цикл обработки сообщений, обрабатывать WM_TIMER. Устанавливается таймер с пом. SetTimer.

← →
Сергей М. © (2006-06-21 08:47) [2]

> необходимо создать доп. поток

Не обязательно, можно и в основном

← →
Windows © (2006-06-28 17:27) [3]

А можно кода кусок, я ничего не понимаю...

← →
Медвед (2006-06-28 21:48) [4]

>Сергей М. в основном можно, только проблемы с "одновременностью"

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows;

procedure TimerProc(hwnd,uMsg,idEvent,dwTime:integer);stdcall;
begin
writeln("preved krosavcheg !");
end;

var
msg:TMsg;
begin
{ TODO -oUser -cConsole Main : Insert code here }
SetTimer(0,1,1000,@TimerProc);
while GetMessage(msg,0,0,0) do DispatchMessage(msg);
end.

← →
Windows © (2006-06-30 13:03) [5]

Spasibo bolshoe!
A kak sdelat" ego uprovlyaushim...
t.e. mojno bilo vkluchit" i vikluchit pri neobhodimosti!
a to u menya putem vvoda peremennoy tipa BOOLEAN, on visnit...
mojno toje kusok koda.

p.s: Izvinite za translit, kakoy-to gluk s kompom, russkiy 9zik propal!(((

Или использовать стандартный TTimer

Kakim obrazom ego v Console ispolzovat"?
nekatit takoy variant!!!!
eshe est" predlojeniya?

← →
Шпиён (2006-06-30 18:50) [8]

var TimerId:Cardinal; .................................. TimerId:=SetTimer(0,1,1000,@TimerProc);- включаешь KillTimer(0, TimerId); - выключаешь
Подробности - в справке.

Еще можно посмотреть в сторону timeSetEvent, CreateWaitableTimer, reateTimerQueueTimer

ps

> Windows © (30.06.06 18:29) [7]
> Kakim obrazom ego v Console ispolzovat"?

Можно извратиться. Но, думаю что нецелесообразно.

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