procedure TForm1.Button2Click(Sender: TObject);
var systime : _SYSTEMTIME;
begin
systime.wYear := 2001; //2001年12月1日 9:01:01
systime.wMonth := 12;
systime.wDayOfWeek :=1;
systime.wDay := 1;
systime.wHour := 1;
systime.wMinute := 1;
systime.wSecond := 1;
systime.wMilliseconds := 1; if SetSystemTime( systime ) then
Application.MessageBox('修改系统时间成功', 'ok', MB_OK);
end;
var systime : _SYSTEMTIME;
begin
systime.wYear := 2001; //2001年12月1日 9:01:01
systime.wMonth := 12;
systime.wDayOfWeek :=1;
systime.wDay := 1;
systime.wHour := 1;
systime.wMinute := 1;
systime.wSecond := 1;
systime.wMilliseconds := 1; if SetSystemTime( systime ) then
Application.MessageBox('修改系统时间成功', 'ok', MB_OK);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货