Multimedia Timer

[hanspeter]

Hallo,

ich versuche über einen Multimedia Timer einen Zeittakt von 1 ms zu erzeugen.
Das funktioniert auch aber nach ca. 1 min stüzt das Programm mit einen Stack overflow ab.

Aufruf :

TimeSetEvent(1, 0, @TimeCallBack, 0, TIME_PERIODIC); und die Callback Procedure:

Delphi-Quellcode:

procedure TimeCallBack; 
begin
  if run <> nil then
    run.Takt1ms;
end;

bzw.

procedure TimeCallBack;  stdcall;

Der Fehler tritt auch auf, wenn die Procedure TimeCallBack keine Funktion hat.

Delphi-Quellcode:

procedure TimeCallBack; 
begin
  exit;
end;

TimeSetEvent wird im Create eines threads aufgerufen.

Mein Fehler oder Delphifehler ?
Hat wer eine Idee.


Gruß Peter