Delphi 检测鼠标键盘多久没有活动

Posted windson

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了Delphi 检测鼠标键盘多久没有活动相关的知识，希望对你有一定的参考价值。

function GetInputAwayTime():DWORD;  
var
  lpi:TLastInputInfo;
begin
  lpi.cbSize := sizeof(lpi);
  GetLastInputInfo(lpi);
  Result := Round((GetTickCount()-lpi.dwTime)/1000);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := IntToStr(GetInputAwayTime)
end;

 

以上是关于Delphi 检测鼠标键盘多久没有活动的主要内容，如果未能解决你的问题，请参考以下文章