Multimedia Timer

[hanspeter]

Interesant,
wenn ich den 2.Parameter(uResolution) auf 1 setze, dann läuft es doppelt so lange.
Parameter 0 Absturz nach ca. 1400 Zyklen , Parameter 1 cy. 2400 Zyklen dann Absturz.

Hier ist nochmal das ganze Programm:

Delphi-Quellcode:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MMSystem;

type
  TForm5 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

var
  mmResult: Integer;
  anz : integer;
procedure TimeCallBack(TimerID, Msg: Uint; dwUser, dw1, dw2: DWORD); pascal;
begin
  if Form5.lbl1.Caption = 'Tick' then  Form5.lbl1.Caption:= 'Tack'
  else
   Form5.lbl1.Caption := 'Tick';
  inc(anz);
  Form5.lbl2.Caption := inttostr(anz);
end;


procedure TForm5.btn1Click(Sender: TObject);
begin
  anz := 0;
  mmResult := TimeSetEvent(10, 1, @TimeCallBack, 0, TIME_PERIODIC);
end;

end.

Grüße