Wie kann ich etwas um eine bestimmte Uhrzeit ausführen?

[toms]

Alternative zu einem TTimer: TimeSetEvent von MMSystem.

Überlasse ich dem Leser: TimerID und Msg geschickt setzen...

Delphi-Quellcode:

  private
      FTimerID: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  MMSystem;

procedure timeSetEventCallBack(TimerID, Msg, dwUser, dw1, dw2: Cardinal); pascal;
begin
  Form1.Caption := 'Alarm!';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // In 3 Sek die CallBack Procedure aufrufen
  FTimerID := TimeSetEvent(3000, 1000, @timeSetEventCallBack, 0, TIME_ONESHOT);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 if FTimerID <> 0 then
   TimeKillEvent(FTimerID);
end;