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...
