Timer in einer Unit

[Sir Rufo]

Zitat von HolgerX:

So, jetzt will ich auch noch ein bisschen verwirren..

Was passiert, wenn SetTimer(0, EventID,.. eine bereits durch ein anderes Programm verwendete EventID benutzt?

Wenn es sich bei den Timern um globale Timer handelt, sollte dann dem anderen Programm der Timer 'geklaut' werden...

Wenn dem so ist, dann sollte man SetTimer grundsätzlich mit einem gültigen Handle aufrufen, um zu verhindern, das der Timer entwendet wird.

Wenn du einen Timer erzeugen willst und kein Handle übergeben möchtest, dann musst du wie folgt vorgehen:

Delphi-Quellcode:

var
  nIDEvent : UINT_PTR = 0; // wir starten OHNE eine TimerID

procedure StartMyTimer;
begin
  nIDEvent := SetTimer( 
    { KEIN HANDLE } 0,
    { TimerID } nIDEvent,
    { Interval } 1000,
    { TimerProc } @MyTimerProc );
end;

procedure StopMyTimer;
begin
  if KillTimer(
    { KEIN HANDLE } 0,
    { TimerID } nIDEvent )
  then
    nIDEvent := 0;
end;

Und schon wird da auch kein Timer von wo auch immer geklaut ... man muss es nur richtig machen