用户没有动键盘时间

转载于 2017-11-05 12:12:10 发布 · 145 阅读

本文介绍了一个简单的程序，用于检测用户在一段时间内是否有键盘或鼠标的输入活动。通过获取最后一次输入的时间，并与当前时间进行对比，可以判断用户是否处于活跃状态。如果超过一分钟未有任何输入，则会提示用户长时间未操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function StopTime: integer; //返回没有键盘和鼠标事件的时间

var

  LInput: TLastInputInfo;

begin

  LInput.cbSize := SizeOf(TLastInputInfo);

  GetLastInputInfo(LInput);

  Result := (GetTickCount() - LInput.dwTime) div 1000;  // 微妙换成秒

end;

procedure TForm1.Timer1Timer(Sender: TObject);    // Timer 事件

begin

if StopTime >= 60 then

  Showmessage('用户已经1分钟没有动键盘鼠标了！');

end;