Event zum Datumswechsel ?

[mschaefer]

Hallo zusammen,

gibt es bei Windows ein Event zum Datumswechsel ?

Grüße // Martin

[TiGü]

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
  private
    procedure WMTimeChanged(var Message: TWMTimeChange); message Winapi.Messages.WM_TimeChange;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm1.WMTimeChanged(var Message: TWMTimeChange);
begin
  // hier kannst du jetzt alles machen
end;

end.

[Neutral General]

Sicher dass das klappt TiGü?
Kommt drauf an was er meint. Ich glaube er redet nicht davon dass jemand das Datum ändert, sondern dass sich das Datum von selbst ändert (neuer Tag).
Kann mich aber auch irren. :gruebel:

[Der schöne Günther]

Ich würde mir die Uhrzeit JETZT anschauen, ausrechnen wann der nächste Tag kommt und mir einen Timer mit entsprechendem Intervall setzen. Einfacher geht's doch nicht.

[TiGü]

Zitat:

Zitat von Neutral General (Beitrag 1382859)

Sicher dass das klappt TiGü?
Kommt drauf an was er meint. Ich glaube er redet nicht davon dass jemand das Datum ändert, sondern dass sich das Datum von selbst ändert (neuer Tag).
Kann mich aber auch irren. :gruebel:

Nö, aber ich werde auch nicht bis Mitternacht warten, um es zu überprüfen! :-D

[mschaefer]

Nein, Michael irrt sich nicht :-). Ich lauere tatsächlich auf die Geisterstunde oder besser den Datumswechsel zu Beginn. WMTimeChanged wird leider nur aufgerufen, wenn jemand von Hand daran geschraubt hat, eigentlich schade. So bleibt im Moment tatsächlich nur die Rechenmethode.

Vielen Dank in die Runde

Martin

[Glados]

Also das hier wird bei mir aufgerufen wenn der Nutzer das Datum/die Zeit ändert oder das System es automatisiert macht

Delphi-Quellcode:

procedure WMTimeChange(var msg: TMessage); message WM_TIMECHANGE;

procedure TForm1.WMTimeChange(var msg: TMessage);
begin
 // ...
 inherited;
end;

[mschaefer]

Uhps das war mir nicht klar. Dann passt das ja prima. Danke ;-)

[Glados]

Change, nicht Changed. Das war alles.

[himitsu]

Du könntest die Windows Aufgabenplanung bitten dich um Mitternacht zu informieren.