Frage bezüglich Windows Herunterfahren...Wo ist mein Fehler?

[Die Muhkuh]

Die von Detlef gepostete Funktion nutzen

[Forlan]

erstmal danke für eure hilfe, aber mit der function funktioniert es leider nur bedingt...

also wenn ich:

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if SysUtils.Time >= DTPUhrzeit.Time then
     begin
       MyExitWindows(EWX_POWEROFF or EWX_FORCE);
     end;
end;

schreibe, fährt der Rechner garnicht runter, und wenn ich:

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if now >= DTPUhrzeit.Time then
     begin
       MyExitWindows(EWX_POWEROFF or EWX_FORCE);
     end;
end;

fährt der Rechner sofort runter, egal welche Zeit ich eintrage... was ist denn jetzt noch falsch?

[Hawkeye219]

Hallo Marcel,

der DateTimePicker liefert - entgegen der Dokumentation - in den Eigenschaften Date und Time immer Datum und Uhrzeit. Du musst also den Zeitanteil mit der Funktion Frac herausschneiden.

Gruß Hawkeye

[Forlan]

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if SysUtils.Time >= Frac(DTPUhrzeit.Time) then
     begin
       MyExitWindows(EWX_POWEROFF or EWX_FORCE);
     end;
end;

das hab ich jetzt so versucht... aber damit fährt der Rechner sich wieder sofort runter...