Delphi 有没有办法操纵TimeGetTime计时器的值

我有一个应用程序使用GetLastInputInfo函数，并将其与GetTickCount（返回Windows启动后的毫秒数）的值进行比较，以此检测键盘或鼠标应用程序中超过某一时间的无人。这段代码有一个bug，它没有在GetTickCount计数器运行49天左右时显现出来

我希望能够测试应用程序对这种滚动的敏感性，但速度比每7周快一次。有人知道强制执行GetTickCount返回的值的方法吗（任何清晰的编程语言，包括.BAT，都可以使用这个例子）

---

这不是真正的复制品。我对一种技术感兴趣，这种技术可以让我描述已经存在的代码的行为。

运行检查过的Windows版本。它人工将

GetTickCount

值设置为启动时翻滚前1小时，以便计数器值在1小时内翻滚，而不是49天。

运行已检查的Windows版本。它人为地将

GetTickCount

值设置为开机时翻滚前1小时，这样计数器值可以在1小时而不是49天内翻滚。

听起来几乎完美。我现在是，但是（假设我在虚拟机上安装它）当我安装它时，在许可方面会发生什么？听起来几乎完美。我现在是，但是（假设我在一个虚拟机上安装它）当我安装它时，在许可方面会发生什么？