Timer klappt nicht in Dienst

[dingdoi]

Ich hoffe, dieses kleine Beispiel hilft dir weiter.

Code:

...

  TYPE
    TXyzThread = class(TThread)
    private
      hTimerQTimer: THandle;  // <<<<<

    public
      constructor Create;
      destructor Destroy;
  end;

  procedure DoSomething(Context: Pointer; TimeOut: Boolean); stdcall;  // <<<<<

implementation

  constructor TXyzThread.Create;
  begin

    CreateTimerQueueTimer(hTimerQTimer, 0, @DoSomething, nil, 60000, 60000, 0);  // <<<<<

  end;

  destructor TXyzThread.Destroy;
  begin

    DeleteTimerQueueTimer(hTimerQTimer, 0, 0);  // <<<<<

  end;

...