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;
设置电脑的系统时间
猜你喜欢
转载自blog.csdn.net/victor_yang/article/details/87157900
今日推荐
周排行