procedure TForm1.Timer1Timer(Sender: TObject);
var
vLastInputInfo: TLastInputInfo;
begin
vLastInputInfo.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(vLastInputInfo);
Caption := Format('用户已经%d秒没有动键盘鼠标了',
[(GetTickCount - vLastInputInfo.dwTime) div 1000]);
end;
本文介绍了一个简单的程序,用于监测用户在计算机前的活动状态。通过获取最后一次输入的时间,并与当前时间进行对比,程序能够判断用户是否长时间未进行键盘或鼠标的操作。此功能对于实现自动休眠、节能管理等具有一定的实用价值。

736

被折叠的 条评论
为什么被折叠?



