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;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678