如何设置Delphi程序在长时间未使用后自动关闭功能？

本文共计506个文字，预计阅读时间需要3分钟。

在Delphi XE中，要检查程序的空闲时间而不是系统空闲时间，你可以通过以下步骤来实现：

1. 使用`GetTickCount`函数来获取程序启动以来的毫秒数。

2.计算两次调用之间的时间差，从而得到程序的空闲时间。

以下是一个简化的代码示例：

delphi

function GetProgramIdleTime: Integer;var StartTime, CurrentTime: Integer;begin StartTime :=GetTickCount; // 获取程序启动时的毫秒数 // 等待一段时间，比如1秒 Sleep(1000); CurrentTime :=GetTickCount; // 再次获取当前时间 // 计算空闲时间 Result :=CurrentTime - StartTime;end;

// 使用示例var IdleTime: Integer;begin IdleTime :=GetProgramIdleTime; Writeln('Program idle time: ', IdleTime, ' ms');end.

这段代码定义了一个函数`GetProgramIdleTime`，它通过计算两次`GetTickCount`调用之间的时间差来得到程序的空闲时间。在示例中，我们使用`Sleep(1000)`来模拟等待一段时间，这样你就可以看到程序在等待期间的空闲时间。最后，我们输出计算得到的空闲时间。

参见英文答案 > How do I check for PROGRAM idle time, as opposed to SYSTEM idle time?3个
我们有一个程序,我们正在用Delphi XE编写.我有个问题 ：

如果程序在我们设置为参数的持续时间内未使用,则应自动返回到输入屏幕.所以像Windows一样,必须有像鼠标和键盘这样的控件.你能帮帮我吗？

谢谢.

定期调用 GetLastInputInfo.这将返回上次输入事件的滴答计数.然后将输入事件的滴答计数与当前滴答计数之间的差异与超时进行比较.

这种方法的缺点是你必须处理具有32位Windows滴答计数的49天翻转问题.作为替代方案,您可以选择安装系统挂钩来监视键盘和鼠标事件.这将允许您避免49天翻转问题,但实施起来要复杂得多.