如何在delphi 7中使用setlocaltime？

Question

包含更改时间例程的程序在 Borland Delphi 7 IDE 中运行时确实会更改时间。 但是当它独立运行（在Delphi IDE之外）时，它不会改变时间。 我正在使用 Windows 7。你能帮忙吗？ 谢谢你。

...
procedure TForm1.changetime;

begin
  DateSeparator:='-';
  ShortDateFormat:='yyyy-MM-dd';
  LongDateFormat:='yyyy''Year'',MM''Month'',dd''Date''';
  TimeSeparator:=':';
  DateTimetoString(date,'yyyy-mm-dd',now);
  DateTimetoString(time,'hh:nn:ss',now);
  cd:='2014-06-01 '+time;
  d1:=StrToDateTime(cd);
  DateTimeToSystemTime(d1,systemtime);
  SetLocalTime(SystemTime);
end;
...

Answer 1

我的超能力告诉我，您正在使用管理权限运行 Delphi 7 IDE。

如果是这样，当您的应用程序从 IDE 启动时，它们会被您的应用程序进程继承。 但是，当然，当您通过在 Windows 资源管理器（例如）中双击其图标来运行您的应用程序时，它会以未提升的权限执行。

要更改系统时间，您需要提升权限。 这解释了观察到的行为。

当您想从调试器外部启动应用程序时，请确保将其提升运行。 例如，您可以右键单击其图标并选择“以管理员身份运行”。

事实上，你几乎可以自己弄清楚这一点。 因为每次使用 Windows API 函数时，都会检查其返回值。 从文档：

如果函数成功，则返回值非零。

如果函数失败，则返回值为零。 要获取扩展错误信息，请调用GetLastError 。

所以你应该做

if not SetLocalTime(st) then
  RaiseLastOSError

这在我的系统上告诉我我没有足够的权限。