如何在 delphi 7 中使用 setlocaltime？答案

【问题标题】：How to use setlocaltime in delphi 7?如何在 delphi 7 中使用 setlocaltime？
【发布时间】：2020-10-20 16:47:56
【问题描述】：

包含更改时间例程的程序在 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;
...

【问题讨论】：

这太复杂了——你可以马上做systemtime.wYear:= 2014;。
您大概知道设置时间是一项管理员任务。你为什么要编写一个程序来做到这一点？

标签： delphi delphi-7

【解决方案1】：

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

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

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

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

实际上，您几乎可以自己弄清楚这一点。因为每次使用 Windows API 函数时，都会检查它的返回值。来自the documentation：

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

如果函数失败，返回值为零。要获取更多错误信息，请致电GetLastError。

所以你应该这样做

if not SetLocalTime(st) then
  RaiseLastOSError

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

【讨论】：