最近照着《百例课堂delphi7编程入门篇》做实例

前面的一些例子，都得到正确的结果了

但做到设置系统时间这个例子的时候，点了按钮没结果

例子实现步骤大概是这样的：
窗体上放一按钮，双击输入代码，如下：

procedure TForm1.Button1Click(Sender: TObject);
var
yourtime:Tsystemtime;
begin
  with yourtime do
  begin
    wyear:=1999;
    wmonth:=12;
    wday:=1;
    whour:=0;
    wminute:=0;
    wsecond:=0;
  end;
getsystemtime(yourtime);
end;

end.

我反复对照了几遍，代码应该没错，但运行程序点按钮就是没反应

照着输入了其他几个函数SYSTEMTIME，和setsystemtimeadjustment，都报错
换了getsystemtime，还是没反应

百度了一下，换了SetLocalTime，也没反应。

哪位懂，给个解释吧，谢谢！
补充：win7 64位　　　delphi xe5环境

setsystemtime和setlocaltime
测试环境一：Win7 64位　delphiXE5　两个函数都可以改变系统时间
测试环境二：Win7 64位　Delphi7    两个函数都可以改变系统时间　　把编译的程序复制到虚拟机的XP里
测试环境三：WinXP  setsystemtime可以改变系统时间  setlocaltime没试　应该也可以吧

总结，系统时间真的被改变了

。。。时间确实被改了。。。

追问：那点击按钮怎么才能蹦出时间设置框呢？

电子书上明明是说：在弹出的日期和时间对话框中可以看出系统时间被重新设置

[ 本帖最后由 不懂才问 于 2015-2-24 07:19 编辑 ]

在弹出的日期和时间对话框中可以看出系统时间被重新设置。。。。。这句话的意思是你自己双击屏幕右下角，自己去看

这个代码是可以更改时间和日期的

procedure TForm1.Button1Click(Sender: TObject);
var
yourtime:Tsystemtime;
begin
  with yourtime do
  begin
    wyear:=1999;
    wmonth:=12;
    wday:=1;
    whour:=0;
    wminute:=0;
    wsecond:=0;
  end;
setsystemtime(yourtime);
end;

如果你真的想在程序中调用系统自带的那个时钟模块   试试以下代码：


procedure TForm1.Button1Click(Sender: TObject);
var
yourtime:Tsystemtime;
begin
  with yourtime do
  begin
    wyear:=1999;
    wmonth:=12;
    wday:=1;
    whour:=0;
    wminute:=0;
    wsecond:=0;
  end;
setsystemtime(yourtime);
winexec('rundll32.exe /d shell32.dll,Control_RunDLL timedate.cpl',SW_SHOWDEFAULT);
end;

[ 本帖最后由 wp231957 于 2015-2-26 09:28 编辑 ]

你的失败代码 乃是马大哈所导致
就算你不懂英文，那最简单的setXXXX 是设置XXXX 是更改的操作  而getXXXX 是获取XXXX 它是阅读操作不是更改操作