DOS的Turbo Pascal-如何获得当前的时区偏移

Question

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

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

**编辑**

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

Answer 1

尝试使用Pascal中的EXEC语句使用管道运行DOS SystemInfo命令输出，然后使用Pascal解析结果输出。示例...

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

在Windows 7上需要SEC才能获得结果，但在XP上应该更快地运行。