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 regularexpressions 正则表达式如何忽略大小写

Delphi的unicode与gb2312转转换,汉字unicode转gb2312

Delphi给access创建数据表

Delphi 在memo查找字符并定位

Delphi判断按下的是回车键?

Delphi 字符串保存为 txt文件

Delphi实现屏幕截图、窗口截图、指定区域截图

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi 判断文件名是否有效

Delphi xe 控件字体加粗变色居中等

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

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