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;
 

相关阅读 >>

Delphi tstringlist stringlist的特殊用法

Delphi 解析系统环境变量

Delphi xe10 对 json的解析应用

Delphi实现电脑端微信图片文件解密

Delphi base64编码/解码及zlib压缩/解压

Delphi如何开发游戏外挂

Delphi dbgrideh footer的设置和使用

Delphi 用 directshow 获取本机的视频摄像设备列表

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi pc喇叭发声

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi更新本地时间