如何修改系统时间？？

Question

如何用delphi实现到23：59时自动把系统时间修改为2004年9月30号00：00；00？

Answer 1

自动就变过去了么， 好像用 time := ....就可以修改

Answer 2

Time:=incsecond(now+(SecondOfTheDay(Now) Mod 60*60*24);

Answer 3

var
  vSystemTime: TSystemTime;
begin
  DateTimeToSystemTime(StrToDateTimeDef('2004-01-01 12:00:00', 0), vSystemTime);
  SetSystemTime(vSystemTime);
end;

Answer 4

放到Timer的OnTimer事件中...，試試以下代碼：procedure TForm1.Timer1Timer(Sender: TObject);
var
  vSystemTime: TSystemTime;
  s:string;
begin
    s:=FormatDateTime('hh:mm',now);
    if s='23：59' then
    begin
    DateTimeToSystemTime(StrToDateTimeDef('2004-09-30 00:00:00', 0), vSystemTime);
  SetSystemTime(vSystemTime);
    end;
end;