utc - Turbo Pascal for DOS - 如何获取当前时区偏移量

Question

我需要对用 Turbo Pascal 7 编写的遗留应用程序进行修改，这需要我找出当前时区偏移量。该程序在 32 位 XP 环境中的 DOS 框中运行。

有人知道这样做的方法吗？

** 编辑 **

我可能应该补充一点，这个问题的原因是因为我想知道 UTC 时间，即我想要一种GetSystemTime从 DOS 调用等价物的方法。

Answer 1

尝试在 Pascal 中使用 Exec 语句通过管道运行 DOS systeminfo 命令输出，然后使用 Pascal 解析结果输出。例子...

c:\>systeminfo | find "Time Zone"
Time Zone:                 (UTC-05:00) Eastern Time (US & Canada)

c:\>

在 Windows 7 上需要一秒钟才能获得结果，但在 XP 上运行速度应该更快。