Delphi更新本地时间


procedure UpDataLacolTime(Year,Month,Day,Hour,Minute,Second:Integer);
var
 SysTime:SystemTime;
Begin
 SysTime.wYear:=Year;
 SysTime.wMonth:=Month;
 SysTime.wDay:=Day;
 SysTime.wHour:=Hour;
 SysTime.wMinute:=Minute;
 SysTime.wSecond:=Second;
 SysTime.wMilliseconds:=0;


 if SetLocalTime(SysTime) then
 begin
 //如果修改成功
 IsUpDataSuccess:=true
 end;
end;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678