修改系统年份，关闭恢复时间 【高手进】 delphi时间类

Question

我想打开软件自动修改系统时间为去你年的今天，并且修改win7的显示时间为当前时间，但实际系统实际已经被修改（也就是伪装时间）
关闭的时候系统时间恢复为当前时间比如，今天是 2012-04-01 19:15:00
      修改为 2011-04-01 19:15:00关闭软件后系统恢复2012-04-01 19:15:00
本人新人，希望能多点注释，不然我真不会用

Answer 1

用SetLocalTime函数,Edit1输入你要改变的时间,装有杀毒软件的系统,可能会有提示procedure TForm1.Button1Click(Sender: TObject);
var
  SysTime:TSystemTime;
  myDT:TDateTime;
begin
  myDT:=StrToDateTime(Edit1.Text);
  DateTimeToSystemTime(myDT,SysTime);
  SetLocalTime(SysTime);
end;

Answer 2

现在先修改时间吧
procedure TForm1.Button1Click(Sender: TObject);
var
  SysTime:TSystemTime;
  myDT:TDateTime;
  i:word;
begin
  i:=2011;
myDT.wYear:=StrToDateTime(i);
  DateTimeToSystemTime(myDT,SysTime);
  SetLocalTime(SysTime);这个代码为什么总是报错StrToDateTime我的目的是在任何系统下吧系统时间修改为2011年

Answer 3

控件：edit
要求： 个人输入  年--月--日
通知代码转换当前日期为：  年-1 --月---日
即可

Answer 4

我的目的就是不需要输入
并且只修改年份，日期时间都不动StrToDateTime 只想修改年份其他不动
但是delphi这个总是报错
不知道是什么格式，请大家指点

Answer 5

decodedate,encodedate。大概是这两个名字

Answer 6

Function Sys_Set_LocalTime(aTime: TDateTime): Boolean;
Var
  ADateTime: TSystemTime; //系统时间格式
Begin
  SysUtils.DateTimeToSystemTime(aTime, ADateTime);
  Result := SetLocalTime(ADateTime);
  SendMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); //广播消息：时间已改变！
End; 

Answer 7

Sys_Set_LocalTime(aTime: TDateTime):aTime
这个就是你想定义的日期呀

Answer 8

Function Sys_Set_LocalTime(aTime: TDateTime): Boolean;
Var
  ADateTime: TSystemTime; //系统时间格式
Begin
  aTime=2011;
  SysUtils.DateTimeToSystemTime(aTime, ADateTime);
  Result := SetLocalTime(ADateTime);
 // SendMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); //广播消息：时间已改变！
End;  这样写有问题吗？

Answer 9

//定义方法
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;
//引用方式
//修改方法
  SetSystemtime(StrTodateTime('2011-06-06 12:30:30'));
//恢复方法
  SetSystemtime(StrTodateTime('2012-04-04 15:05:30'));

Answer 10

//定义代码
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;

Answer 11

//修改日期
  SetSystemtime(StrTodateTime('2011-06-06 12:30:30'));
//恢复日期
  SetSystemtime(StrTodateTime('2012-04-04 15:05:30'));给分呀，我可努力了哟

Answer 12

还有一个自定义的方面，我已写好DEMO程序，
如果想要的话，你可以关注我的QQ号，在关注中
我传给你
终于可以拿到你的这个20分了，不要让我失望哟

Answer 13

 
xingyu198932
你呀，我给了你4个选择项的  年 +  月  +日  时：分：秒
你能不能只修改“保留”一个“年”即可呀