konsole anwendung und timer !

[MartinA]

Warum sollte ein Timer nicht gehen ?

Code:

procedure dertimer(WND: Hwnd; uMsg: Word; IdEvent: Word; dwTimer: DWord); stdcall; Far;
begin
   :  
   was man halt so in seinem timer tut;
   :
end;

var
TimerHandle : DWord;
begin
   :
   TimerHandle := SetTimer(0, 0, 300000, @dertimer);
   :
   was man halt so in seinem hauptprogramm tut;
   :
   :
   if TimerHandle <> 0 then KillTimer(0, TimerHandle);
end;

Gruß
Martin

[EDIT] Erster Beitrag in DP 8) [/EDIT]