delphi 判断键盘多久没有使用

【文件属性】：

文件名称：delphi 判断键盘多久没有使用

文件大小：312B

文件格式：TXT

更新时间：2013-07-14 04:11:10

判断键盘多久没有使用

procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); GetLastInputInfo(vLastInputInfo); if GetTickCount - vLastInputInfo.dwTime > 5000 then begin timer1.Enabled:= false; showmessage('超过5秒，用户未动鼠标！'); end;end;