更改系统时间

转载于 2017-08-30 15:19:13 发布 · 231 阅读

·

0

·

0

本文介绍了一个使用Delphi进行日期和时间操作的具体示例，包括设置日期格式、字符串转换为日期时间类型、获取系统时间和设置系统时间等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button1Click(Sender: TObject);

var

  d1:TDatetime;

  cd:string;

  systemtime:Tsystemtime;

  S:string;

begin

  DateSeparator:='-';

  ShortDateFormat:='yyyy-MM-dd';

  LongDateFormat:='yyyy''年'',MM''月'',dd''日''';

  TimeSeparator:=':';

  DateTimetoString(S,'hh:nn:ss',now);

  cd:='2016-09-30 '+S;

  d1:=StrToDateTime(cd);

  DateTimeToSystemTime(d1,systemtime);

  SetLocalTime(SystemTime);

end;