取鼠标和键盘空闲时间

云外归鸟

原作者:esir

核心代码：
变量 lpi 为 LASTINPUTINFO
变量 空闲时间 为 双精度小数型
lpi.cbSize=取尺寸(LASTINPUTINFO)
GetLastInputInfo(@lpi)
空闲时间=(GetTickCount()-lpi.dwTime)/1000
SetDlgItemText(hWin,ID,"系统空闲："+到文本(空闲时间)+"秒")