Czy wie ktos moze jak napisac aplikacje konsolowa tak zeby działał w niej komponent TTimer?
0
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
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.