delphi7修改系统时间

添加edit和两个button,第一个button获得系统时间,第二个button按照edit中的时间设置本地系统时间。

注意:设置时间格式不要修改。delphi7通过。

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=FormatDateTime(‘yyyy-mm-dd hh:mm’,now);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
SysTime:TSystemTime;
MyTime:TDateTime;
begin
MyTime:=StrToDateTime(Edit1.Text);
DateTimeToSystemTime(MyTime,SysTime);
SetLocalTime(SysTime);
end;

发表评论

电子邮件地址不会被公开。 必填项已用*标注