ScheduledFuture in Delphi?

[WorstNightmare]

Zitat:

Ich kenne mich leider mit den Interna von den neuen Routinenreferenzen nicht aus

Hatte das eh nur aus Gemütlichkeit gemacht, wollte es dann in procedure of object umwandeln.

Hab es jetzt so:

Delphi-Quellcode:

unit Scheduler;

interface

uses Windows, SysUtils;

type
  TSchedule = procedure of object;

  TDescriptor = record
    Proc: TSchedule;
    Queue: THandle;
    Timer: PHandle;
  end;
  PDescriptor = ^TDescriptor;

  TScheduler = class
  private
    FQueue: THandle;
  public
    constructor Create;
    destructor Destroy; override;

    procedure AddSchedule(Milliseconds: Cardinal; Proc: TSchedule);
  end;

implementation

{ TScheduler }

constructor TScheduler.Create;
begin
  FQueue := CreateTimerQueue;
end;

destructor TScheduler.Destroy;
begin
  DeleteTimerQueue(FQueue);

  inherited;
end;

procedure OnTimer(Context: Pointer; Success: Boolean); stdcall;
begin
  PDescriptor(Context)^.Proc;

  DeleteTimerQueueTimer(PDescriptor(Context)^.Queue, Cardinal(PDescriptor(Context)^.Timer^), INVALID_HANDLE_VALUE);

  Dispose(Context);
end;

procedure TScheduler.AddSchedule(Milliseconds: Cardinal; Proc: TSchedule);
var
  Timer: THandle;
  PDesc: PDescriptor;
begin
  New(PDesc);
  PDesc^.Proc := Proc;
  PDesc^.Queue := FQueue;
  PDesc^.Timer := @Timer;

  if not CreateTimerQueueTimer(Timer, FQueue, OnTimer, PDesc, Milliseconds, 0, WT_EXECUTEONLYONCE) then
    raise Exception.Create('Creating a timer failed!');
end;

end.

Die Funktion des Schedulers an sich funktioniert jetzt, die Message erscheint. Allerdings wollte ich danach gerne auch aufräumen und DeleteTimerQueueTimer aufrufen, dafür brauche ich aber ein paar Parameter die ich irgendwie noch da rein kriegen musste
Und da geht wohl was schief, ich hab's mit Pointern nicht so besonders