delphi 获取鼠标与键盘空闲时间

本文整理自网络，侵删。

 以下是获取空闲时间的代码，主要用到了GetLastInputInfo，关于这个API的用法，可以参考

http://baike.baidu.com/link?url=mujG74H8KaH5fnAlIsItz3r2EZWQd1CvVt2x2B_wHlsGYfra7XbBa_BcvVrwj2YPAWtyvLQ6CdVH2e2Qa38FOq

使用前记得初始化结构体TLastInputInfo，并给cbSize赋值，否则函数将返回False

function GetIdleTime: Cardinal;
var
  pill: TLastInputInfo;
begin
  ZeroMemory(@pill, SizeOf(pill));
  pill.cbSize := SizeOf(pill);
  GetLastInputInfo(pill);
  Result := GetTickCount - pill.dwTime;
end;
 

相关阅读 >>

Delphi 外壳扩展创建快捷方式和获取快捷方式的目标对象

Delphi 检测网络是否连通

Delphi 62 进制的简单实现

Delphi如何在一个窗体中嵌入另一个窗体

Delphi利用文件流把文件拆分与合并

Delphi idhttp实现get方法下载文件，断点续传

Delphi使用idhttp模拟提交页面方法总结

Delphi中如何捕获mediaplayer播放的视频中的每一帧 ?

Delphi操作access

Delphi 随机程序名

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取鼠标与键盘空闲时间