本文整理自网络,侵删。
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;
相关阅读 >>
Delphi hbp-1100u 欧姆龙血压计的usb调用方法
更多相关阅读请进入《Delphi》频道 >>