delphi 设置本地系统时间

本文整理自网络，侵删。

 
function SetLocalSysTime(const newTime:TDateTime):Boolean; //设置本地系统时间
var
  MyTime:TsystemTime;
begin
  FillChar(MyTime,sizeof(MyTime),#0);
  MyTime.wYear := StrToInt(FormatDateTime('yyyy', newTime));
  MyTime.wMonth := StrToInt(FormatDateTime('mm', newTime));
  MyTime.wDay := StrToInt(FormatDateTime('dd', newTime));
  MyTime.wHour := StrToInt(FormatDateTime('hh', newTime));
  MyTime.wMinute := StrToInt(FormatDateTime('nn', newTime));
  MyTime.wSecond := StrToInt(FormatDateTime('ss', newTime));
  Result := SetLocalTime(MyTime);
  //Result := SetSystemTime(MyTime);
end;
 

相关阅读 >>

Delphi的组件选项卡（component palette）

Delphi 去掉twebbrowser的滚动条

Delphi 10 firedac 连接池设置

Delphi从dbgrid导出数据保存成excel文件

Delphi xe开发 android 开机自动启动

Delphi listview 排序功能

Delphi 如何在webservice中获取客户端的ip地址

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi2010的操作界面切换到Delphi7的操作模式

Delphi 内存读取、修改

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

转载请注明出处：木庄网络博客 » delphi 设置本地系统时间