设置电脑的系统时间

function SetSytemTime(aNewTime:TDateTime):Boolean;
var
  Y,M,D,H,N,S,MS:Word;
  aSystemTime:TSystemTime;
begin
  try
    DecodeDateTime(aNewTime,Y,M,D,H,N,S,MS);  //分解时间成年月日时分秒和毫秒
    with aSystemTime do //逐项写入TSystemTime中
    begin
      wYear:=Y;
      wMonth:=M;
      wDay:=D;
      wHour:=H;
      wMinute:=N;
      wSecond:=S;
      wMilliseconds:=MS;
      wDayOfWeek:=DayOfWeek(aNewTime);   // 计算星期几
    end;
    SetLocalTime(aSystemTime);  //设置本地系统的时间
    Result:=True;
  except
    Result:=False;
  end;
end;