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

修改系统年份，关闭恢复时间 【高手进】 delphi时间类
我想打开软件自动修改系统时间为去你年的今天，并且修改win7的显示时间为当前时间，但实际系统实际已经被修改（也就是伪装时间）
关闭的时候系统时间恢复为当前时间

比如，今天是 2012-04-01 19:15:00
  修改为 2011-04-01 19:15:00

关闭软件后系统恢复2012-04-01 19:15:00


本人新人，希望能多点注释，不然我真不会用

[解决办法]
//定义方法
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'));