Timer i aplikacja konsolowa.

0

Czy wie ktos moze jak napisac aplikacje konsolowa tak zeby działał w niej komponent TTimer?

0

TTimer mozna od biedy podlaczyc do aplikacji konsolowej (tworzyc ukryte okno, podlepiac sie do innego ...) a mozna tez stosowac timer zMMSystem (tzw. multimedialny)

program Project1;

uses
  Windows, MMSystem, SysUtils;

{$APPTYPE CONSOLE}

procedure TimeCallBack(TimerID, Msg: Uint; dwUser, dw1, dw2: DWORD); pascal;
begin
  WriteLn(Format('TimerID %d  Msg: %d User: %d',[TimerID,Msg, dwUser]));
end;

var
 t1,t2:integer;
begin
  t1 := timeSetEvent(100,0, @TimeCallBack, 0, TIME_PERIODIC);
  t2 := timeSetEvent(1000,0, @TimeCallBack, 1, TIME_PERIODIC);

  readln;
  timeKillEvent(t1);
  timeKillEvent(t2);  
end.
0

Ok poradziłem sobie w ciut inny sposob :)
W głownej pętli dałem

  while GetMessage(msg, 0, 0, 0) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end

I już ładnie działa :) tylko teraz nie mam pojęcia jak w tej pętli sprawdzić, czy został wcisniety klawisz, a jesli tak to jaki ?

0

a co to ma wspólnego z TTimer

0

No to jest juz kolejny problem, ktory sie pojawil po rozwiazaniu tego pierwszego

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0