delphi 一个修改系统时间的函数,超简单

一个修改系统时间的函数,超简单

function SetSystemDateTime(vDateTime: TDateTime): boolean;
var
  vSysTime: TSystemTime;
begin
  DateTimeToSystemTime(vDateTime, vSysTime);
  SetSystemTime(vSysTime);
  //SetLocalTime(vSysTime);
  SendMessage(HWND_BROADCAST,WM_TIMECHANGE,0,0) ;
end;