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 xe实现android 添加图片资源到应用并使用它

Delphi各个版本编译开关值

Delphi实现双击左ctrl键调用记事本

Delphi 常用api 函数

Delphi 截图程序方法

Delphi xe 编译开关-一套代码不同平台编译

Delphi 字符串的分割

Delphi 在目录后面加上一个 "\"

Delphi中的memo顶部添加行

Delphi xe7中使用json

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

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