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

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

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

转载于:https://www.cnblogs.com/fubin/archive/2009/05/15/1457241.html