HanDs
管理员

[Delphi文章] 关修改系统日期时间 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

Delphi实现:

function SetSystemtime(ATime: TDateTime) : boolean;
Var
  ADateTime:TSystemTime;
  yy,mon,dd,hh,min,ss,ms : Word;
Begin
  decodedate(ATime ,yy,mon,dd);
  decodetime(ATime ,hh,min,ss,ms);
  With ADateTime Do
    Begin
      wYear:=yy;
      wMonth:=mon;
      wDay:=dd;
      wHour:=hh;
      wMinute:=min;
      wSecond:=ss;
      wMilliseconds:=ms;
    End;
   Result:=SetLocalTime(ADateTime);
   SendMessage(HWND_BROADCAST,WM_TIMECHANGE,0,0) ;
   If Result then ShowMessage('成功改变时间!');
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SetSystemTime(StrTodateTime('1999-05-08 21:11:11') );
end;

记录当前时间例如:
ShortDateFormat:='yyyy-mm-dd';
showmessage(DateTimetostr((now())));
你将得到:2003 03 19 10:50:49

批处理实现

@echo off
set date=%date%
date 1999-01-12
ping -n 10 127.0.0.1>nul
date %date%

set date=%date%  记录当前时间

date 1999-01-12    改为 1999-01-12

ping -n 10 127.0.0.1>nul  延迟10秒

date %date%  改回原时间

希望对大家有用。


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
修改 系统 日期 时间
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复