delphi中调用api函数问题（系统时间）

Question

No.1 直接赋值
var
  lpSystemTime: TSystemTime;
begin
  lpSystemTime.wYear := 2002;
  lpSystemTime.wMonth := 03;
  //lpSystemTime.wDayOfWeek := ?;
  lpSystemTime.wDay := 04;
  lpSystemTime.wHour := 12;
  lpSystemTime.wMinute := 12;
  lpSystemTime.wSecond := 12;
  lpSystemTime.wMilliseconds := 12;
  SetSystemTime(lpSystemTime);
end;

Answer 1

No.2 系统函数
procedure DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime);
function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;

Answer 2

//==============================================================================
//修正日期、时间****************************************************************
//==============================================================================
procedure SetDateTime(DateTime: TDateTime);
var SystemTime: TSystemTime;
begin
  DateTimeToSystemTime(DateTime,SystemTime);
  SetLocalTime(SystemTime);
end;