问一段代码 - pascal吧

问一段代码

level 12

大家帮我想楼主

{$M $4000,0,0 }
USES DOS;
BEGIN
SWAPVECTORS;
EXEC(GetEnv('SYSTEMROOT')+'system32\cmd.exe','restart');
swapvectors;
end.
对DOS一窍不通。看见这么个源程序，不知道会是什么样，不敢运行。

2015年02月28日 11点02分 1

level 14

82111668_2012

重启吗？

2015年02月28日 11点02分 2

level 14

82111668_2012

而且这段代码好像不对

2015年02月28日 11点02分 3

level 14

82111668_2012

应该是
{$M $4000,0,0 }
USES DOS;
BEGIN
SWAPVECTORS;
EXEC(GetEnv('SYSTEMROOT')+'system32\cmd.exe','shutdown -r -f -t 0');
swapvectors;
end.

2015年02月28日 11点02分 4