Sendet Windows eine Message beim Tageswechsel?

[BeeJay]

Hallo

ich suche nach einer einfachen Möglichkeit den Tageswechsel (23:59:59 auf 00:00:00 Uhr) mitzubekommen, um verschiedene Aktionen durchzuführen. Sendet Windows keine Message dazu? Oder was gibt es noch aus einem Timer?

Danke

[Sonne]

Ich habs nur mit nem Timer realisiert.

procedure TForm1.Timer1Timer(Sender: TObject);
var a:string;
begin
Statusbar1.Panels[0].Text :=TimeToStr(Time);
a:=TimeToStr(Time);
if a= '11:16:00' then showmessage('Es ist 11:16:00');
end

[Digidrag]

ich wuerde es auch mit einem timer und einer globalen variable machen<br>

Procedure timer<br>
var now:Tdatetime;<br>
Begin<br>
now:=date;<br>
if trunc(now)>trunc(last) then Tageswechsel;<br>
last:=now;<br>
end;<br&gt

[d3g]

Hi,
TrayClockWClass (die Tray-Clock) sendet jede Minute WM_SETTEXT an sich selbst, der inhalt der Message ist die Uhrzeit. Es müsste doch irgendwie möglich sein, wie WinSight32 die Messages einer Klasse abzuhören und darauf zu reagieren, man müsste nur WM_SETTEXT mit wParam: 5 und lParam: "00:00" abfangen können.

MfG,
d3

[Hagen Reddmann]

@D3g, genau das ist NICHT der Fall. Wie kommst Du darauf ? und welches System soll das betreffen ?

Gruß Hage

[d3g]

Hallo Hagen,
ein Ausschnitt der Messages, die WinSight von TrayClockWClass empfängt:

(Handle) "17:07" WM_TIMER Dispatched id 0 lpfn 00000000
(Handle) "17:07" WM_SETTEXT Sent 5 chars: "17:08"

Wie ich gesagt hatte: TrayClockWClass sendet WM_SETTEXT an sich selbst..

[Hagen Reddmann]

Unter Win9x siehts aber nicht danach aus. Speziell unter meinem Win95 sendet er diese Message NICHT.

Gruß Hage

[d3g]

Hallo,
unter Win ME schon und unter Windows 2000 meine ich mich zu erinnern, das auch gesehen zu haben. Aber da das ganze unter Win95 nicht funktioniert ist meine Lösung ohnehin nicht zu bruachen...

MfG,
d3