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需要一秒才能获得结果，但它应该在XP上运行得更快。